The #6724 is here.

p4raw-id: //depot/perl@6732

diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t
index 5f30f96..d31cc9e 100755 (executable)
--- a/t/lib/ftmp-security.t
+++ b/t/lib/ftmp-security.t
@@ -95,7 +95,7 @@ sub test_security {
   # Create the tempfile
   my $template = "temptestXXXXXXXX";
   my ($fh1, $fname1) = tempfile ( $template, 
-                                 DIR => File::Spec->curdir,
+                                 DIR => File::Spec->tmpdir,
                                  UNLINK => 1,
                                );
   print "# Fname1 = $fname1\n";