In perl.git, the branch dual/Safe has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/312434d200ea2a8487b21594aeb6c13838c42b0b?hp=a49e8abf3f8e4ce0620ae23a4ef9875a6a2fe720>
- Log -----------------------------------------------------------------
commit 312434d200ea2a8487b21594aeb6c13838c42b0b
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Sat Mar 31 16:15:21 2012 +0200
Make Safe play nice with Devel::Cover
-----------------------------------------------------------------------
Summary of changes:
dist/Safe/Safe.pm | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index 9335dc6..5aa2f6e 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -140,6 +140,9 @@ my $default_share = [qw[
&Tie::Hash::NamedCapture::SCALAR
&Tie::Hash::NamedCapture::flags
])];
+if (defined $Devel::Cover::VERSION) {
+ push @$default_share, '&Devel::Cover::use_file';
+}
sub new {
my($class, $root, $mask) = @_;
--
Perl5 Master Repository
