From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Mon, 22 Feb 2010 22:09:42 +0000 (+0100)
Subject: Add some symbols from version::vxs to the default share
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=404e3cecaf943f355728143a462cdf822a1d13f3;p=p5sagit%2Fp5-mst-13.2.git

Add some symbols from version::vxs to the default share

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.
---

diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 8af4310..3eac5d0 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -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
 ])];