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

[perl5.git] / t / harness

diff --git a/t/harness b/t/harness
index 36ee4ce..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>;
@@ -50,6 +55,7 @@ if (@ARGV) {
         push @tests, <run/*.t>;
         push @tests, <io/*.t>;
         push @tests, <op/*.t>;
+        push @tests, <uni/*.t>;
         push @tests, <lib/*.t>;
        use File::Spec;
        my $updir = File::Spec->updir;