This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Temp file cleanliness.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 1 Oct 1999 06:58:10 +0000 (06:58 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 1 Oct 1999 06:58:10 +0000 (06:58 +0000)
p4raw-id: //depot/cfgperl@4267

t/lib/filecopy.t

index e461595..7ef68eb 100755 (executable)
@@ -88,3 +88,7 @@ print "not " unless $foo eq "ok 3\n" and not -e "file-$$";;
 print "ok 11\n";
 unlink "lib/file-$$" or die "unlink: $!";
 
 print "ok 11\n";
 unlink "lib/file-$$" or die "unlink: $!";
 
+END {
+    1 while unlink "file-$$";
+    1 while unlink "lib/file-$$";
+}