fix system call

diff --git a/botm_common.pm b/botm_common.pm
index a93b118e2e88a8dfdde753718a8d8be0eaa1a418..0f3f2d9b5e7b60da55b5bf97513fa221abdeaea8 100644 (file)
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -25,7 +25,7 @@ use Encode ('encode', 'decode');
 
 use Exporter;
 
-our $VERSION     = '1.0.15';
+our $VERSION     = '1.0.16';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -103,7 +103,7 @@ sub system_encoded {
                push @newarg, encode('locale', $a);
        }
        
-       return system $newcmd, @newarg;
+       return system {$newcmd} @newarg;
 }
 
 sub exec_encoded {