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 (file)
--- 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