This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tie::File: use unique tmp filename in 29a_upcopy.t
[perl5.git] / dist / Tie-File / t / 29a_upcopy.t
index f23fa47..73ae3df 100644 (file)
@@ -10,7 +10,7 @@
 # but the source and destination regions may overlap.)
 
 
-my $file = "tf29-$$.txt";
+my $file = "tf29a-$$.txt";
 
 print "1..55\n";