MANIFEST is needlessly held open for entire duration of "make test"

p4raw-id: //depot/perl@16174

diff --git a/t/TEST b/t/TEST
index 7be22f1..5130423 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -89,6 +89,7 @@ unless (@ARGV) {
                }
            }
        }
+       close MANI;
     } else {
         warn "$0: cannot open $mani: $!\n";
     }

diff --git a/t/harness b/t/harness
index 6153b23..53665f4 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -67,6 +67,7 @@ if (@ARGV) {
                    push @tests, File::Spec->catfile($updir, $1);
                }
            }
+           close MANI;
        } else {
            warn "$0: cannot open $mani: $!\n";
        }