From bb9fb6628b9ed86b811b4c60fa191b01d65e5ce6 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 1 Feb 2008 17:52:10 +0000
Subject: Break apart the list of functions defined in universal.c by perl
 version (from 5.8.8 upwards)

p4raw-id: //depot/perl@33170
---
 ext/Opcode/Safe.pm | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

(limited to 'ext/Opcode')

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) = @_;
-- 
cgit v1.2.1