diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-10-10 09:51:24 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-10 09:51:24 +0000 |
| commit | e279cb0b1bca3fd51526cebcf39440049559cc98 (patch) | |
| tree | d4fae52be5c4e5ac14dfaf1e2421df7172b28913 /lib/strict.pm | |
| parent | fb652349441d4b05f41d77692a72134e7014d8f6 (diff) | |
| download | perl-e279cb0b1bca3fd51526cebcf39440049559cc98.tar.gz | |
Remove use of caller() in strict.pm, and tighten Safe compartment
for Storable tests to match.
p4raw-id: //depot/perl@17986
Diffstat (limited to 'lib/strict.pm')
| -rw-r--r-- | lib/strict.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/strict.pm b/lib/strict.pm index 2eb756c938..d1479ed865 100644 --- a/lib/strict.pm +++ b/lib/strict.pm @@ -16,12 +16,8 @@ sub bits { $bits |= $bitmask{$s} || 0; } if (@wrong) { - my $useno = { - __PACKAGE__.'::import' => 'use', - __PACKAGE__.'::unimport' => 'no' - }->{ (caller(1))[3] }; require Carp; - Carp::croak("Don't know how to '$useno ".__PACKAGE__." qw(@wrong)'"); + Carp::croak("Unknown 'strict' tag(s) '@wrong'"); } $bits; } |