[pkg-kolab] r1427 - pkg-kolab_testsuite

[Mathieu Parent]

Author: sathieu
Date: 2009-11-26 22:16:37 +0000 (Thu, 26 Nov 2009)
New Revision: 1427

Modified:
   pkg-kolab_testsuite/testsuite
Log:
Print return value if not true


Modified: pkg-kolab_testsuite/testsuite
===================================================================
--- pkg-kolab_testsuite/testsuite	2009-11-26 22:12:30 UTC (rev 1426)
+++ pkg-kolab_testsuite/testsuite	2009-11-26 22:16:37 UTC (rev 1427)
@@ -146,16 +146,20 @@
 {
     my $domip = shift;
     my $command = shift || undef;
+    my $ret;
     if(defined($command)) {
-        system('ssh',
+        $ret = system('ssh',
             '-i', conf('storage_pool_dir').'/key',
             "root\@$domip",
             $command);
     } else {
-        system('ssh',
+        $ret = system('ssh',
             '-i', conf('storage_pool_dir').'/key',
             "root\@$domip");
     }
+    if($ret) {
+        print "Return value: $ret\n";
+    }
 }
 
 #=======================================================