Change 33171 by [EMAIL PROTECTED] on 2008/02/01 18:17:03
Integrate:
[ 33170]
Break apart the list of functions defined in universal.c by perl
version (from 5.8.8 upwards)
Affected files ...
... //depot/maint-5.10/perl/ext/Opcode/Safe.pm#4 integrate
Differences ...
==== //depot/maint-5.10/perl/ext/Opcode/Safe.pm#4 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm#3~33164~ 2008-02-01 02:51:47.000000000 -0800
+++ perl/ext/Opcode/Safe.pm 2008-02-01 10:17:03.000000000 -0800
@@ -3,7 +3,7 @@
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 @@
*_
&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 @@
&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 @@
&version::noop
&version::is_alpha
&version::qv
-]];
+]), ($] >= 5.011 && qw[
+ &re::regexp_pattern
+])];
sub new {
my($class, $root, $mask) = @_;
End of Patch.
