From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 13 Mar 2008 10:43:13 +0000 (+0000)
Subject: Regexp::DESTROY was only added in 5.8.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81d4a902ecbc1bf9a78b3df432e698439bf35048;p=p5sagit%2Fp5-mst-13.2.git

Regexp::DESTROY was only added in 5.8.1

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

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index 04a3b55..f611e0f 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.15";
+$Safe::VERSION = "2.16";
 
 # *** Don't declare any lexicals above this point ***
 #
@@ -46,7 +46,6 @@ my $default_root  = 0;
 my $default_share = [qw[
     *_
     &PerlIO::get_layers
-    &Regexp::DESTROY
     &UNIVERSAL::isa
     &UNIVERSAL::can
     &UNIVERSAL::VERSION
@@ -61,7 +60,9 @@ my $default_share = [qw[
     $version::VERSION
     $version::CLASS
     @version::ISA
-], ($] >= 5.010 && qw[
+], ($] >= 5.008001 && qw[
+    &Regexp::DESTROY
+]), ($] >= 5.010 && qw[
     &re::is_regexp
     &re::regname
     &re::regnames