WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/LIB/JatsSystem.pm

 #-------------------------------------------------------------------------------
 # Function        : EscapeCommand
+#
 # Description     : Escape input commands
+#                   Can be called with two forms of arguments.
+#                   If the there is only one item in the input list, then the
+#                   command will be a single command that is to be processed
+#                   by the shell. We cannot do escaping of space characters.
+#
+#                   If there is more than one item, then assume that each
+#                   item will be a standalone command parameter - and we can
+#                   quote spaces within the command stream.
+#
 #                   Must handle:
 #                       Embedded "
 #                       Embeded spaces
 #                   Doesn't (yet) handle embedded \
+#
 # Returns         : Return an escaped string
+#
 sub EscapeCommand
+{
     my @cmd;
+    my $arg_count = $#_;
     foreach ( @_ )
+    {
         my $data = $_;
         next unless ( $data );
         $data =~ s~"~\\"~g;
-        $data =~ s~ ~\\ ~g;
+        $data =~ s~ ~\\ ~g if ($arg_count > 0);
         push @cmd, $data;
+    }
     return join (' ', @cmd);
+}
 ;

Subversion Repositories DevTools