diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-07-31 08:51:36 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-07-31 08:51:36 +0100 |
commit | 4725e868e1e96081bcc0f978318916bd7f8256a9 (patch) | |
tree | 566991e15ad513ed730a6806ee2b988acc0922c7 /cpan | |
parent | e4fde5ca79509aa64f80d46497b7d5945e066222 (diff) | |
download | perl-4725e868e1e96081bcc0f978318916bd7f8256a9.tar.gz |
Upgrade parent from 0.225 to 0.226
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/parent/lib/parent.pm | 2 | ||||
-rw-r--r-- | cpan/parent/t/parent.t | 7 |
2 files changed, 6 insertions, 3 deletions
diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm index 8f72db86dc..32f0d6cafc 100644 --- a/cpan/parent/lib/parent.pm +++ b/cpan/parent/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; use vars qw($VERSION); -$VERSION = '0.225'; +$VERSION = '0.226'; sub import { my $class = shift; diff --git a/cpan/parent/t/parent.t b/cpan/parent/t/parent.t index 6ee4494e8a..fd1722f668 100644 --- a/cpan/parent/t/parent.t +++ b/cpan/parent/t/parent.t @@ -56,12 +56,15 @@ is( $Eval1::VERSION, '1.01' ); is( $Eval2::VERSION, '1.02' ); +my $expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(\@INC contains:/}; +$expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/} + if 5.018 <= $]; eval q{use parent 'reallyReAlLyNotexists'}; -like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, 'baseclass that does not exist'); +like( $@, $expected, 'baseclass that does not exist'); eval q{use parent 'reallyReAlLyNotexists'}; -like( $@, q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC contains:/}, ' still failing on 2nd load'); +like( $@, $expected, ' still failing on 2nd load'); { my $warning; local $SIG{__WARN__} = sub { $warning = shift }; |