chr(42) ne '*' if one is in EBCDIC.

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index 330cc43..a19363a 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -41,7 +41,12 @@ foreach (keys %datahandle) {
 my @tests = ();
 
 if (@ARGV) {
-    @tests = @ARGV;
+    if ($^O eq 'MSWin32') {
+       @tests = map(glob($_),@ARGV);
+    }
+    else {
+       @tests = @ARGV;
+    }
 } else {
     unless (@tests) {
        push @tests, <base/*.t>;