In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/40b9d4d925a92009ab916e8557c333c6e9e5d0ca?hp=1cb246e8dcbc92bfdff3156b4963ab3a06f97534>
- Log ----------------------------------------------------------------- commit 40b9d4d925a92009ab916e8557c333c6e9e5d0ca Author: Rafael Garcia-Suarez <[email protected]> Date: Sun Jun 28 16:18:27 2009 +0200 Silence warnings in test with 5.10.0 M ext/Safe/t/safeuniversal.t commit 03dbc343c8be5c169c9c735909ab35d3bbf05a0b Author: Rafael Garcia-Suarez <[email protected]> Date: Sun Jun 28 16:08:19 2009 +0200 Bump Safe version to 2.17 for CPAN release M ext/Safe/Safe.pm ----------------------------------------------------------------------- Summary of changes: ext/Safe/Safe.pm | 2 +- ext/Safe/t/safeuniversal.t | 3 +++ 2 files changed, 4 insertions(+), 1 deletions(-) diff --git a/ext/Safe/Safe.pm b/ext/Safe/Safe.pm index 812d571..9d3d589 100644 --- a/ext/Safe/Safe.pm +++ b/ext/Safe/Safe.pm @@ -3,7 +3,7 @@ package Safe; use 5.003_11; use strict; -$Safe::VERSION = "2.16_01"; +$Safe::VERSION = "2.17"; # *** Don't declare any lexicals above this point *** # diff --git a/ext/Safe/t/safeuniversal.t b/ext/Safe/t/safeuniversal.t index d37d7ca..5ef3842 100644 --- a/ext/Safe/t/safeuniversal.t +++ b/ext/Safe/t/safeuniversal.t @@ -14,6 +14,7 @@ BEGIN { } use strict; +use warnings; use Test::More; use Safe; plan(tests => 6); @@ -22,6 +23,7 @@ my $c = new Safe; $c->permit(qw(require caller)); my $r = $c->reval(q! + no warnings 'redefine'; sub UNIVERSAL::isa { "pwned" } (bless[],"Foo")->isa("Foo"); !); @@ -32,6 +34,7 @@ is( (bless[],"Foo")->isa("Foo"), 1, "... but not outside" ); sub Foo::foo {} $r = $c->reval(q! + no warnings 'redefine'; sub UNIVERSAL::can { "pwned" } (bless[],"Foo")->can("foo"); !); -- Perl5 Master Repository
