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 (file)
--- 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 (executable)
--- 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' }