diff options
Diffstat (limited to 't/op/readdir.t')
-rw-r--r-- | t/op/readdir.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/op/readdir.t b/t/op/readdir.t index 9aac087f41..8bf5610c6a 100644 --- a/t/op/readdir.t +++ b/t/op/readdir.t @@ -34,13 +34,12 @@ else { @R = sort @D; @G = sort <op/*.t>; -@G = sort <:op:*.t> if $^O eq 'MacOS'; if ($G[0] =~ m#.*\](\w+\.t)#i) { # grep is to convert filespecs returned from glob under VMS to format # identical to that returned by readdir @G = grep(s#.*\](\w+\.t).*#op/$1#i,<op/*.t>); } -while (@R && @G && $G[0] eq ($^O eq 'MacOS' ? ':op:' : 'op/').$R[0]) { +while (@R && @G && $G[0] eq 'op/'.$R[0]) { shift(@R); shift(@G); } |