Changeset 10625 for trunk/ippScripts/scripts/phase0_exp.pl

Timestamp:

Dec 11, 2006, 1:35:17 PM (19 years ago)

Author:

Paul Price

Message:

Need to quote arguments with whitespace with this latest version of IPC::Cmd

File:

• trunk/ippScripts/scripts/phase0_exp.pl (modified) (1 diff)

trunk/ippScripts/scripts/phase0_exp.pl

@@ -160 +160 @@
     }
  
+    # Quote arguments with whitespace
+    for (my $i = 0; $i < scalar @command; $i++) {
+        if ($command[$i] =~ /\s/) {
+            $command[$i] = "\'$command[$i]\'";
+        }
+    }
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => \@command, verbose => 1);