Loop in S_init_perllib(), only calling S_incpush*() with INCPUSH_ADD_OLD_VERS

[p5sagit/p5-mst-13.2.git] / t / lib / common.pl

diff --git a/t/lib/common.pl b/t/lib/common.pl
index 2cba490..36d45f3 100644 (file)
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -16,8 +16,8 @@ $| = 1;
 
 my $Is_MacOS = $^O eq 'MacOS';
 my $tmpfile = "tmp0000";
-# 1 while -e ++$tmpfile;
-# END { 1 while unlink $tmpfile }
+1 while -e ++$tmpfile;
+END { 1 while unlink $tmpfile }
 
 my @prgs = () ;
 my @w_files = () ;