Attribute::Handlers till ears are bleeding

[p5sagit/p5-mst-13.2.git] / win32 / bin / pl2bat.pl

diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl
index cdbac6f..2b5bb4a 100644 (file)
--- a/win32/bin/pl2bat.pl
+++ b/win32/bin/pl2bat.pl
@@ -13,7 +13,7 @@ Usage:  $0 [-h]
    or:  $0 [-w] [-u] [-n ntargs] [-o otherargs] [-s stripsuffix] [files]
         -n ntargs       arguments to invoke perl with in generated file
                             when run from Windows NT.  Defaults to
-                            '-x -S "%0" %*'.
+                            '-x -S %0 %*'.
         -o otherargs    arguments to invoke perl with in generated file
                             other than when run from Windows NT.  Defaults
                             to '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9'.
@@ -33,7 +33,8 @@ EOT
 
 my %OPT = ();
 warn($usage), exit(0) if !getopts('whun:o:a:s:',\%OPT) or $OPT{'h'};
-$OPT{'n'} = '-x -S "%0" %*' unless exists $OPT{'n'};
+# NOTE: %0 is already enclosed in doublequotes by cmd.exe, as appropriate
+$OPT{'n'} = '-x -S %0 %*' unless exists $OPT{'n'};
 $OPT{'o'} = '-x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9' unless exists $OPT{'o'};
 $OPT{'s'} = '/\\.plx?/' unless exists $OPT{'s'};
 $OPT{'s'} = ($OPT{'s'} =~ m#^/([^/]*[^/\$]|)\$?/?$# ? $1 : "\Q$OPT{'s'}\E");
@@ -218,7 +219,7 @@ use B<pl2bat>.
 
 The generated batch file is initially processed as a batch file each
 time it is run.  This means that, to use it from within another batch
-file you should preceed it with C<call> or else the calling batch
+file you should precede it with C<call> or else the calling batch
 file will not run any commands after the script:
 
     call script [args]
@@ -316,7 +317,7 @@ deprecated C<-a> option.
 =item B<-n> I<ntargs>
 
 Arguments to invoke perl with in generated batch file when run from
-Windows NT (or Windows 98, probably).  Defaults to S<'-x -S "%0" %*'>.
+Windows NT (or Windows 98, probably).  Defaults to S<'-x -S %0 %*'>.
 
 =item B<-o> I<otherargs>