diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2003-06-11 08:57:58 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-11 20:49:04 +0000 |
| commit | b0044e0559ee2d2c6a9f7e077b0d1cee21452762 (patch) | |
| tree | 92f4cc1bda73565d3437b6a4f653899e654a15c0 /lib | |
| parent | c3dadc13ecc6ab6af328ca3d3e57d4da7767d678 (diff) | |
| download | perl-b0044e0559ee2d2c6a9f7e077b0d1cee21452762.tar.gz | |
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
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/File/Temp/t/security.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/File/Temp/t/security.t b/lib/File/Temp/t/security.t index e0cf85b23f..2226f8c70b 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; |