inches3, but not 60.4

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@766 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Modules/Units.pl b/src/Modules/Units.pl
index bc7be77388a781d4d87ba0e907dbdae27dee305b..bb973f7b6e736239ac946f1a817fc27c65c05441 100644 (file)
--- a/src/Modules/Units.pl
+++ b/src/Modules/Units.pl
@@ -115,8 +115,8 @@ sub convertUnits {
        return;
     }
     # yet another powers hack.
-    $from =~ s/(\D+)(\d)/$1\^$2/g;
-    $to   =~ s/(\D+)(\d)/$1\^$2/g;
+    $from =~ s/([[:alpha:]]+)(\d)/$1\^$2/g;
+    $to   =~ s/([[:alpha:]]+)(\d)/$1\^$2/g;
 
     &::performStrictReply(sprintf("$from is approximately \002%.6g\002 $to", $q));
   } else {