From: Andy Dougherty <doughera@lafayette.edu>
Date: Wed, 11 Jun 2003 12:57:58 +0000 (-0400)
Subject: Re: [PATCH] Annoyingly unhelpful messages from lib/File/Temp/t/security.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0044e0559ee2d2c6a9f7e077b0d1cee21452762;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;