Expand command line test globs on Win32.

p4raw-id: //depot/perlio@14401

1 files changed, 6 insertions, 1 deletions

diff --git a/t/harness b/t/harness
index 330cc43b3f..a19363af3e 100644
--- 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>;