From d2177bdff53b8195a5f64299d691c735a161f905 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Wed, 24 Feb 2010 15:38:10 +0100
Subject: Also share SWASHGET in perls < 5.10, before it was translated from
 perl to C

---
 dist/Safe/Safe.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'dist/Safe/Safe.pm')

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 70f0d2dfb7..06d369b244 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
-- 
cgit v1.2.1