fix bug 77: only use cmd2string when necessary

diff --git a/data/PVE/Tools.pm b/data/PVE/Tools.pm
index 8b2725e3aff2f718c5cef3818648865cf394d428..72494027a1e937b310c1fe7515d6e10f93d8d81b 100644 (file)
--- a/data/PVE/Tools.pm
+++ b/data/PVE/Tools.pm
@@ -200,10 +200,14 @@ sub run_command {
     my ($cmd, %param) = @_;
 
     my $old_umask;
+    my $cmdstr;
 
-    $cmd = [ $cmd ] if !ref($cmd);
-
-    my $cmdstr = cmd2string($cmd);
+    if (!ref($cmd)) {
+       $cmdstr = $cmd;
+       $cmd = [ $cmd ];
+    } else {
+       $cmdstr = cmd2string($cmd);
+    }
 
     my $errmsg;
     my $laststderr;

diff --git a/debian/changelog b/debian/changelog
index 4a8631a531b2585426927bd5de4a981fdbcdb76b..cb556c560e7acc85deb9e6936c3ab6bdc250b57f 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,6 +2,8 @@ libpve-common-perl (1.0-12) unstable; urgency=low
 
   * new helper kvmkeymaplist()
 
+  * fix bug 77: only use cmd2string when necessary
+  
  -- Proxmox Support Team <support@proxmox.com>  Mon, 09 Jan 2012 11:44:11 +0100
 
 libpve-common-perl (1.0-11) unstable; urgency=low