X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/00db94a99cf028d8d91eedfbb546d9ebc2b1ae7c..7a6da24c189d4507eab9c21153e8c11d42d9f795:/lib/Tie/Handle/stdhandle.t

diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t
index 861bdab..ff2a18b 100644
--- a/lib/Tie/Handle/stdhandle.t
+++ b/lib/Tie/Handle/stdhandle.t
@@ -13,7 +13,7 @@ tie *tst,Tie::StdHandle;
 
 $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");