Change 33170: Break apart the list of functions defined in universal.c by perl

[Nicholas Clark]

Change 33170 by [EMAIL PROTECTED] on 2008/02/01 17:52:10

        Break apart the list of functions defined in universal.c by perl
        version (from 5.8.8 upwards)

Affected files ...

... //depot/perl/ext/Opcode/Safe.pm#32 edit

Differences ...

==== //depot/perl/ext/Opcode/Safe.pm#32 (text) ====
Index: perl/ext/Opcode/Safe.pm
--- perl/ext/Opcode/Safe.pm#31~33124~   2008-01-30 03:51:11.000000000 -0800
+++ perl/ext/Opcode/Safe.pm     2008-02-01 09:52:10.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.