diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-02-01 17:52:10 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-02-01 17:52:10 +0000 |
| commit | bb9fb6628b9ed86b811b4c60fa191b01d65e5ce6 (patch) | |
| tree | 1de10fac341f38dfd32183ed43e7addb555950dd /ext/Opcode | |
| parent | 43b09ad7a33220d66fb5299f7edd948446f7afa7 (diff) | |
| download | perl-bb9fb6628b9ed86b811b4c60fa191b01d65e5ce6.tar.gz | |
Break apart the list of functions defined in universal.c by perl
version (from 5.8.8 upwards)
p4raw-id: //depot/perl@33170
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Safe.pm | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm index 785c66532e..2628d74aa1 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.14"; +$Safe::VERSION = "2.15"; # *** Don't declare any lexicals above this point *** # @@ -47,6 +47,18 @@ my $default_share = [qw[ *_ &PerlIO::get_layers &Regexp::DESTROY + &UNIVERSAL::isa + &UNIVERSAL::can + &UNIVERSAL::VERSION + &utf8::is_utf8 + &utf8::valid + &utf8::encode + &utf8::decode + &utf8::upgrade + &utf8::downgrade + &utf8::native_to_unicode + &utf8::unicode_to_native +], ($] >= 5.010 && qw[ &re::is_regexp &re::regname &re::regnames @@ -60,18 +72,7 @@ my $default_share = [qw[ &Tie::Hash::NamedCapture::NEXTKEY &Tie::Hash::NamedCapture::SCALAR &Tie::Hash::NamedCapture::flags - &UNIVERSAL::isa - &UNIVERSAL::can &UNIVERSAL::DOES - &UNIVERSAL::VERSION - &utf8::is_utf8 - &utf8::valid - &utf8::encode - &utf8::decode - &utf8::upgrade - &utf8::downgrade - &utf8::native_to_unicode - &utf8::unicode_to_native &version::() &version::new &version::("" @@ -88,7 +89,9 @@ my $default_share = [qw[ &version::noop &version::is_alpha &version::qv -]]; +]), ($] >= 5.011 && qw[ + &re::regexp_pattern +])]; sub new { my($class, $root, $mask) = @_; |