tools: More back-slash escape fixes

Thanks to Stephen Norum for pointing most of these out and
testing the patch.
This commit is contained in:
Andrew Johnson
2010-12-16 17:02:15 -06:00
parent f9ebe082ff
commit 23daca46a1
3 changed files with 13 additions and 2 deletions
+3
View File
@@ -28,6 +28,9 @@ $Getopt::Std::OUTPUT_HELP_VERSION = 1;
my $path = AbsPath(shift);
# Escape shell special characters unless on Windows, which doesn't allow them.
$path =~ s/([!"\$&'\(\)*,:;<=>?\[\\\]^`{|}])/\\\1/g unless $^O eq 'MSWin32';
print "$path\n";