Add some symbols from version::vxs to the default share
Rafael Garcia-Suarez [Mon, 22 Feb 2010 22:09:42 +0000 (23:09 +0100)]
It appears that the core version.pm works with Safe, but that the
CPAN-upgraded version does not. This will need more investigation
and test coverage, but for now, share the minimal set of symbols
needed to load version.pm in a Safe compartment. This covers
only the XS version of version.pm, not the pure perl alternative.

dist/Safe/Safe.pm

index 8af4310..3eac5d0 100644 (file)
@@ -116,6 +116,9 @@ my $default_share = [qw[
     &version::noop
     &version::is_alpha
     &version::qv
+    &version::vxs::declare
+    &version::vxs::qv
+    &version::vxs::_VERSION
 ]), ($] >= 5.011 && qw[
     &re::regexp_pattern
 ])];