diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2011-12-06 22:02:21 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2011-12-06 22:03:11 +0100 |
| commit | ad084f51cd17539ef55b510228156cd4f83c9729 (patch) | |
| tree | 580cc954e549528e7b2821bbf2d85ffdee6ef98c /dist/Safe/Safe.pm | |
| parent | b8c25b3c5a25bcbc18a1bf60211b429b4e03a5e2 (diff) | |
| download | perl-ad084f51cd17539ef55b510228156cd4f83c9729.tar.gz | |
Upgrade to Safe 2.30
[rt.cpan.org #72872] Fix bad interaction with loading
Tie::Hash::NamedCapture on perls >= 5.14.0
Diffstat (limited to 'dist/Safe/Safe.pm')
| -rw-r--r-- | dist/Safe/Safe.pm | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm index 70549c5f4e..8d0e4fdd4e 100644 --- a/dist/Safe/Safe.pm +++ b/dist/Safe/Safe.pm @@ -4,7 +4,7 @@ use 5.003_11; use strict; use Scalar::Util qw(reftype refaddr); -$Safe::VERSION = "2.29"; +$Safe::VERSION = "2.30"; # *** Don't declare any lexicals above this point *** # @@ -102,15 +102,6 @@ my $default_share = [qw[ &re::regname &re::regnames &re::regnames_count - &Tie::Hash::NamedCapture::FETCH - &Tie::Hash::NamedCapture::STORE - &Tie::Hash::NamedCapture::DELETE - &Tie::Hash::NamedCapture::CLEAR - &Tie::Hash::NamedCapture::EXISTS - &Tie::Hash::NamedCapture::FIRSTKEY - &Tie::Hash::NamedCapture::NEXTKEY - &Tie::Hash::NamedCapture::SCALAR - &Tie::Hash::NamedCapture::flags &UNIVERSAL::DOES &version::() &version::new @@ -137,6 +128,16 @@ my $default_share = [qw[ &version::vxs::VCMP ]), ($] >= 5.011 && qw[ &re::regexp_pattern +]), ($] >= 5.010 && $] < 5.014 && qw[ + &Tie::Hash::NamedCapture::FETCH + &Tie::Hash::NamedCapture::STORE + &Tie::Hash::NamedCapture::DELETE + &Tie::Hash::NamedCapture::CLEAR + &Tie::Hash::NamedCapture::EXISTS + &Tie::Hash::NamedCapture::FIRSTKEY + &Tie::Hash::NamedCapture::NEXTKEY + &Tie::Hash::NamedCapture::SCALAR + &Tie::Hash::NamedCapture::flags ])]; sub new { |