Always flush the PerlIO buffers after running END blocks in

[p5sagit/p5-mst-13.2.git] / t / harness

diff --git a/t/harness b/t/harness
index 330cc43..e9cf2ed 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>;
@@ -52,6 +57,7 @@ if (@ARGV) {
         push @tests, <op/*.t>;
         push @tests, <uni/*.t>;
         push @tests, <lib/*.t>;
+       push @tests, <win32/*.t> if $^O eq 'MSWin32';
        use File::Spec;
        my $updir = File::Spec->updir;
        my $mani  = File::Spec->catfile(File::Spec->updir, "MANIFEST");