From: Dan Sugalski Date: Mon, 22 Jun 1998 09:29:18 +0000 (-0700) Subject: Autosplit's not qite case-insensitive enough on VMS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8f8c40b1f51fd22390cc28834984451a8270f955;p=p5sagit%2Fp5-mst-13.2.git Autosplit's not qite case-insensitive enough on VMS Message-Id: <3.0.5.32.19980622092918.00aa46e0@ous.edu> p4raw-id: //depot/perl@1197 --- diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 471499a..121d261 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