summaryrefslogtreecommitdiff
path: root/t/op/glob.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/glob.t')
-rwxr-xr-xt/op/glob.t7
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/glob.t b/t/op/glob.t
index cc60a17a72..dd95e980d5 100755
--- a/t/op/glob.t
+++ b/t/op/glob.t
@@ -7,7 +7,12 @@ print "1..6\n";
@oops = @ops = <op/*>;
map { $files{$_}++ } <op/*>;
-map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
+if ($^O eq 'MSWin32') {
+ map { delete $files{"op/$_"} } split /[\s\n]/, `cmd /c "dir /b /l op"`;
+}
+else {
+ map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
+}
if (keys %files) {
print "not ok 1\t(",join(' ', sort keys %files),"\n";
} else { print "ok 1\n"; }