diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-13 10:43:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-13 10:43:13 +0000 |
| commit | 81d4a902ecbc1bf9a78b3df432e698439bf35048 (patch) | |
| tree | 196763996b92db9d153595f479e5f314d6d53d1c /ext | |
| parent | ba7c8aa54e1ff35bf0c46fce316b2772f10884bd (diff) | |
| download | perl-81d4a902ecbc1bf9a78b3df432e698439bf35048.tar.gz | |
Regexp::DESTROY was only added in 5.8.1
p4raw-id: //depot/perl@33503
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Opcode/Safe.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm index 04a3b55aa2..f611e0f67d 100644 --- a/ext/Opcode/Safe.pm +++ b/ext/Opcode/Safe.pm @@ -3,7 +3,7 @@ package Safe; use 5.003_11; use strict; -$Safe::VERSION = "2.15"; +$Safe::VERSION = "2.16"; # *** Don't declare any lexicals above this point *** # @@ -46,7 +46,6 @@ my $default_root = 0; my $default_share = [qw[ *_ &PerlIO::get_layers - &Regexp::DESTROY &UNIVERSAL::isa &UNIVERSAL::can &UNIVERSAL::VERSION @@ -61,7 +60,9 @@ my $default_share = [qw[ $version::VERSION $version::CLASS @version::ISA -], ($] >= 5.010 && qw[ +], ($] >= 5.008001 && qw[ + &Regexp::DESTROY +]), ($] >= 5.010 && qw[ &re::is_regexp &re::regname &re::regnames |