From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 Nov 2001 22:13:10 +0000 (+0100)
Subject: some tests not cleaning up properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e9b6bb1c03707a0530be2791cdf7c3ef8ec39e07;p=p5sagit%2Fp5-mst-13.2.git

some tests not cleaning up properly
Message-ID: <20011109221310.A11115@rafael>

p4raw-id: //depot/perl@12922
---

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 98fe40b..e65336f 100644
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -118,7 +118,7 @@ if ($Config{d_symlink}) {
     print +($abs_path      =~ m|$want$| ? "" : "not "), "ok 13\n";
     print +($fast_abs_path =~ m|$want$| ? "" : "not "), "ok 14\n";
 
-    rmtree(["ptrslt"], 0, 0);
+    rmtree(["_ptrslt_"], 0, 0);
     unlink "linktest";
 } else {
     print "ok 13 # skipped\n";
diff --git a/t/io/argv.t b/t/io/argv.t
index 3840f65..7081c47 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -129,4 +129,4 @@ ok( eof(),      'eof() true after closing ARGV' );
     close F;
 }
 
-END { unlink 'Io_argv1.tmp', 'Io_argv1.tmp.bak', 'Io_argv2.tmp', 'Io_argv2.tmp.bak' }
+END { unlink 'Io_argv1.tmp', 'Io_argv1.tmp_bak', 'Io_argv2.tmp', 'Io_argv2.tmp_bak' }