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 | |
| 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')
| -rw-r--r-- | dist/Safe/Changes | 4 | ||||
| -rw-r--r-- | dist/Safe/MANIFEST | 1 | ||||
| -rw-r--r-- | dist/Safe/META.yml | 4 | ||||
| -rw-r--r-- | dist/Safe/Safe.pm | 21 | ||||
| -rw-r--r-- | dist/Safe/t/safenamedcap.t | 21 |
5 files changed, 39 insertions, 12 deletions
diff --git a/dist/Safe/Changes b/dist/Safe/Changes index 385287c3fd..54f9dc6ccd 100644 --- a/dist/Safe/Changes +++ b/dist/Safe/Changes @@ -1,3 +1,7 @@ +2.30 Tue Dec 6 2011 + - Fix bad interaction with loading Tie::Hash::NamedCapture + on perls >= 5.14.0 [rt.cpan.org #72872] + 2.29 Sun Oct 31 2010 - Add &version::vxs::VCMP to Safe's default share diff --git a/dist/Safe/MANIFEST b/dist/Safe/MANIFEST index a610ca7326..b527bc4320 100644 --- a/dist/Safe/MANIFEST +++ b/dist/Safe/MANIFEST @@ -7,6 +7,7 @@ t/safe1.t t/safe2.t t/safe3.t t/safeload.t +t/safenamedcap.t t/safeops.t t/safesort.t t/safeuniversal.t diff --git a/dist/Safe/META.yml b/dist/Safe/META.yml index 58d10ed526..14c4c5a88e 100644 --- a/dist/Safe/META.yml +++ b/dist/Safe/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name: Safe -version: 2.29 +version: 2.30 abstract: ~ author: [] license: unknown @@ -14,7 +14,7 @@ no_index: directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.55_02 +generated_by: ExtUtils::MakeMaker version 6.57_05 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 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 { diff --git a/dist/Safe/t/safenamedcap.t b/dist/Safe/t/safenamedcap.t new file mode 100644 index 0000000000..6afa70e587 --- /dev/null +++ b/dist/Safe/t/safenamedcap.t @@ -0,0 +1,21 @@ +BEGIN { + if ($] < 5.010) { + print "1..0\n"; + exit 0; + } + require Config; + import Config; + if ($Config{'extensions'} !~ /\bOpcode\b/) { + print "1..0\n"; + exit 0; + } +} + +use strict; +use Test::More; +use Safe; +plan(tests => 1); + +BEGIN { Safe->new } +"foo" =~ /(?<foo>fo*)/; +is( $+{foo}, "foo", "Named capture works" ); |