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