Re: [PATCH] Annoyingly unhelpful messages from lib/File/Temp/t/security.t

Message-ID: <Pine.SOL.4.53.0306111252540.19074@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@19744

diff --git a/lib/File/Temp/t/security.t b/lib/File/Temp/t/security.t
index e0cf85b..2226f8c 100755 (executable)
--- a/lib/File/Temp/t/security.t
+++ b/lib/File/Temp/t/security.t
@@ -108,7 +108,9 @@ sub test_security {
       ok( (-e $fname1) );
       push(@files, $fname1); # store for end block
   } elsif (File::Temp->safe_level() != File::Temp::STANDARD) {
-      my $skip2 = "Skip system possibly insecure, see INSTALL, section 'make test'";
+      chomp($@);
+      my $skip2 = "Skip: " . File::Spec->tmpdir() . " possibly insecure:  $@.  " .
+        "See INSTALL under 'make test'";
       skip($skip2, 1);
       # plus we need an end block so the tests come out in the right order
       eval q{ END { skip($skip2,1); } 1; } || die;
@@ -129,7 +131,9 @@ sub test_security {
       push(@files, $fname2); # store for end block
       close($fh2);
   } elsif (File::Temp->safe_level() != File::Temp::STANDARD) {
-      my $skip2 = "Skip system possibly insecure, see INSTALL, section 'make test'";
+      chomp($@);
+      my $skip2 = "Skip: current directory possibly insecure: $@.  " .
+        "See INSTALL under 'make test'";
       skip($skip2, 1);
       # plus we need an end block so the tests come out in the right order
       eval q{ END { skip($skip2,1); } 1; } || die;