Temp file cleanliness.
Jarkko Hietaniemi [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: $!";
 
+END {
+    1 while unlink "file-$$";
+    1 while unlink "lib/file-$$";
+}