Expand command line test globs on Win32.

p4raw-id: //depot/perlio@14401

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>;