Don't forget to tidy up.

p4raw-id: //depot/perl@6885

diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t
index 2466916..3f563f4 100755 (executable)
--- a/t/lib/ftmp-security.t
+++ b/t/lib/ftmp-security.t
@@ -108,6 +108,7 @@ sub test_security {
   my($fname2) = "foobar$$";
   my $fh2;
   open($fh2, ">$fname2") || warn "$0: failed to create '$fname2': $!\n";
+  END { unlink($fname2) }
   ok( (-e $fname2) );
   close($fh2);