From: Warren Jones Date: Fri, 5 Sep 1997 00:00:00 +0000 (+0000) Subject: op/glob.t test failure under Win32 with CVS X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cd616b97fdfe6fb59bc9f4e316718d7f612ba14;p=p5sagit%2Fp5-mst-13.2.git op/glob.t test failure under Win32 with CVS This is a bug report for perl from wjones@tc.fluke.com, generated with the help of perlbug 1.19 running under perl 5.00403. p5p-msgid: 97Aug26.091048pdt.35761-1@gateway.fluke.com --- diff --git a/t/op/glob.t b/t/op/glob.t index dd95e98..253e4a3 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -6,11 +6,12 @@ print "1..6\n"; @oops = @ops = ; -map { $files{$_}++ } ; if ($^O eq 'MSWin32') { - map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op"`; + map { $files{lc($_)}++ } ; + map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op & dir /b /l /ah op 2>nul"`, } else { + map { $files{$_}++ } ; map { delete $files{$_} } split /[\s\n]/, `echo op/*`; } if (keys %files) {