From b0044e0559ee2d2c6a9f7e077b0d1cee21452762 Mon Sep 17 00:00:00 2001
From: Andy Dougherty <doughera@lafayette.edu>
Date: Wed, 11 Jun 2003 08:57:58 -0400
Subject: [PATCH] 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
---
 lib/File/Temp/t/security.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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