diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
commit | 0ec158f4b0db050abb15876df15f5f883540cfd9 (patch) | |
tree | 65a29c8748f938194d687e43d98d4720da79686d /t/win32 | |
parent | 139cf11b10fe82ec7be04ae7d145dc452057d38b (diff) | |
download | perl-0ec158f4b0db050abb15876df15f5f883540cfd9.tar.gz |
clean up after stray test file littering
NOTE: PerlIO/t/via.t leaves behind a via$$ file on windows when
it seems that it shouldn't (looks like a handle leak in PerlIO
to me)
p4raw-id: //depot/perl@16065
Diffstat (limited to 't/win32')
-rw-r--r-- | t/win32/system.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/win32/system.t b/t/win32/system.t index a0266da5ef..bd65412564 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"; |