diff options
| author | Warren Jones <wjones@tc.fluke.com> | 1997-09-05 00:00:00 +0000 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-09-05 00:00:00 +0000 |
| commit | 3cd616b97fdfe6fb59bc9f4e316718d7f612ba14 (patch) | |
| tree | 376e2e56aa2224ff2f2746c43a7895e1a928911d /t | |
| parent | f3e7aa1bd0d29123d18a8cc60ae49ae884b4a820 (diff) | |
| download | perl-3cd616b97fdfe6fb59bc9f4e316718d7f612ba14.tar.gz | |
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
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/glob.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/glob.t b/t/op/glob.t index dd95e980d5..253e4a312f 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -6,11 +6,12 @@ print "1..6\n"; @oops = @ops = <op/*>; -map { $files{$_}++ } <op/*>; if ($^O eq 'MSWin32') { - map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op"`; + map { $files{lc($_)}++ } <op/*>; + map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op & dir /b /l /ah op 2>nul"`, } else { + map { $files{$_}++ } <op/*>; map { delete $files{$_} } split /[\s\n]/, `echo op/*`; } if (keys %files) { |