diff options
| author | Dan Sugalski <dan@sidhe.org> | 1998-06-22 02:29:18 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-23 05:47:24 +0000 |
| commit | 37092af0d20003bff0700fdd99c87685a85aecbc (patch) | |
| tree | d8b986d2a56e868a890ddda0513ad548dd496157 /lib/AutoSplit.pm | |
| parent | 3a2a36e9aaacd2e26d221097d895eca8de2c30ab (diff) | |
| download | perl-37092af0d20003bff0700fdd99c87685a85aecbc.tar.gz | |
Autosplit's not qite case-insensitive enough on VMS
Message-Id: <3.0.5.32.19980622092918.00aa46e0@ous.edu>
p4raw-id: //depot/perl@1197
Diffstat (limited to 'lib/AutoSplit.pm')
| -rw-r--r-- | lib/AutoSplit.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 471499adcb..121d26154d 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -356,7 +356,7 @@ EOT # perl downcases all filenames on VMS (which upcases all filenames) so # we'd better downcase the sub name list too, or subs with upper case # letters in them will get their .al files deleted right after they're - # created. (The mixed case sub name wonn't match the all-lowercase + # created. (The mixed case sub name won't match the all-lowercase # filename, and so be cleaned up as a scrap file) if ($Is_VMS or $Is83) { %outfiles = map {lc($_) => lc($_) } @outfiles; @@ -372,7 +372,7 @@ EOT foreach (sort readdir(OUTDIR)){ next unless /\.al$/; my($file) = "$dir/$_"; - $file = lc $file if $Is83; + $file = lc $file if $Is83 or $Is_VMS; next if $outfiles{$file}; print " deleting $file\n" if ($Verbose>=2); my($deleted,$thistime); # catch all versions on VMS |