diff options
| author | David Steinbrunner <dsteinbrunner@pobox.com> | 2013-05-21 06:48:17 -0400 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2013-05-24 00:59:31 +0200 |
| commit | f5323a256eff3c470c70f3ef7872ca9dbf29e3ac (patch) | |
| tree | 25ab8f2a20ddb35bc0625168a3d1b0835e49cb09 /win32 | |
| parent | 48ef1d7bfd88b4eb0955de1eb67610a6e186a3a5 (diff) | |
| download | perl-f5323a256eff3c470c70f3ef7872ca9dbf29e3ac.tar.gz | |
typo fixes for win32 scripts
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/bin/pl2bat.pl | 2 | ||||
| -rw-r--r-- | win32/bin/search.pl | 2 | ||||
| -rw-r--r-- | win32/ce-helpers/makedist.pl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl index f78be1faa2..b30b16b03d 100644 --- a/win32/bin/pl2bat.pl +++ b/win32/bin/pl2bat.pl @@ -33,7 +33,7 @@ EOT my %OPT = (); warn($usage), exit(0) if !getopts('whun:o:a:s:',\%OPT) or $OPT{'h'}; -# NOTE: %0 is already enclosed in doublequotes by cmd.exe, as appropriate +# NOTE: %0 is already enclosed in double quotes 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'}; diff --git a/win32/bin/search.pl b/win32/bin/search.pl index 98a320cb7a..8f4d7391f3 100644 --- a/win32/bin/search.pl +++ b/win32/bin/search.pl @@ -196,7 +196,7 @@ INLINE_LITERAL_TEXT $iflag='i', next if $arg eq '-i'; ## ignore case $norc=1, next if $arg eq '-norc'; ## don't load rc file $showrc=1, next if $arg eq '-showrc'; ## show rc file - $underlineOK=1, next if $arg eq '-u'; ## look throuh underln. + $underlineOK=1, next if $arg eq '-u'; ## look through underln. $words=1, next if $arg eq '-w'; ## match "words" only &strip if $arg eq '-strip'; ## dump this program last if $arg eq '-e'; diff --git a/win32/ce-helpers/makedist.pl b/win32/ce-helpers/makedist.pl index 85812673e4..4d1f576621 100644 --- a/win32/ce-helpers/makedist.pl +++ b/win32/ce-helpers/makedist.pl @@ -15,7 +15,7 @@ my %opts = ( 'cross-name' => 'wince', 'strip-pod' => 0, # strip POD from perl modules 'adaptation' => 1, # do some adaptation, such as stripping such - # occurences as "if ($^O eq 'VMS'){...}" for Dynaloader.pm + # occurrences as "if ($^O eq 'VMS'){...}" for Dynaloader.pm 'zip' => 0, # perform zip 'clean-exts' => 0, #options itself |