X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fwin32%2Fsystem.t;h=bd654125640aa955cd488124aca6a1e3f705d65d;hb=3894def1afb359ac1e2f71100c2120898927583e;hp=a0266da5efc7e60be48ee37fb65cd6f33a8fed24;hpb=5f682c053747030c533c13711625f2209c5ae077;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/win32/system.t b/t/win32/system.t
index a0266da..bd65412 100644
--- 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";