Integrate mainline

[p5sagit/p5-mst-13.2.git] / t / win32 / system.t

diff --git a/t/win32/system.t b/t/win32/system.t
index a0266da..bd65412 100644 (file)
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -76,8 +76,7 @@ close $F;
 # build the executable
 chdir($testdir);
 END {
-#    chdir($cwd);
-#    rmtree($testdir);
+    chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
 }
 if (open(my $EIN, "$cwd/op/${exename}_exe.uu")) {
     print "# Unpacking $exename.exe\n";