Re: [PATCH] Annoyingly unhelpful messages from lib/File/Temp/t/security.t
Andy Dougherty [Wed, 11 Jun 2003 12:57:58 +0000 (08:57 -0400)]
Message-ID: <Pine.SOL.4.53.0306111252540.19074@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@19744

lib/File/Temp/t/security.t

index e0cf85b..2226f8c 100755 (executable)
@@ -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;