handle negative units

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

diff --git a/src/Modules/Units.pl b/src/Modules/Units.pl
index 79e50b3aed777b6a79475ab03a9a0376af173151..fc88317ae1b8b3b9aade09b29ef2b38d595d70e4 100644 (file)
--- a/src/Modules/Units.pl
+++ b/src/Modules/Units.pl
@@ -15,7 +15,7 @@ sub convertUnits {
     }
 
     my $units = new IO::File;
-    open $units, '-|', 'units', $from, $to
+    open $units, '-|', 'units', '--', $from, $to
       or &::DEBUG("Unable to run units: $!")
       and return;
     my $response = readline($units);