From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Wed, 24 Feb 2010 14:38:10 +0000 (+0100)
Subject: Also share SWASHGET in perls < 5.10, before it was translated from perl to C
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2177bdff53b8195a5f64299d691c735a161f905;p=p5sagit%2Fp5-mst-13.2.git

Also share SWASHGET in perls < 5.10, before it was translated from perl to C
---

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 70f0d2d..06d369b 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -83,7 +83,9 @@ my $default_share = [qw[
     $version::STRICT
     $version::LAX
     @version::ISA
-], ($] >= 5.008001 && qw[
+], ($] < 5.010 && qw[
+    &utf8::SWASHGET
+]), ($] >= 5.008001 && qw[
     &Regexp::DESTROY
 ]), ($] >= 5.010 && qw[
     &re::is_regexp