stdhandle.t: unlink the right file.

[perl5.git] / lib / Tie / Handle / stdhandle.t

diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t
index 861bdab..ff2a18b 100644 (file)
--- a/lib/Tie/Handle/stdhandle.t
+++ b/lib/Tie/Handle/stdhandle.t
@@ -13,7 +13,7 @@ tie *tst,Tie::StdHandle;
 
 $f = 'tst';
 
 
 $f = 'tst';
 

-unlink("afile.new") if -f "afile";
+unlink("afile") if -f "afile";

 
 ok(open($f,"+>afile"), "open +>afile");
 ok(open($f, "+<", "afile"), "open +<, afile");
 
 ok(open($f,"+>afile"), "open +>afile");
 ok(open($f, "+<", "afile"), "open +<, afile");