From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 1 Feb 2008 17:52:10 +0000 (+0000)
Subject: Break apart the list of functions defined in universal.c by perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb9fb6628b9ed86b811b4c60fa191b01d65e5ce6;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@33170
---

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 785c665..2628d74 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) = @_;