summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2013-07-31 08:51:36 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2013-07-31 08:51:36 +0100
commit4725e868e1e96081bcc0f978318916bd7f8256a9 (patch)
tree566991e15ad513ed730a6806ee2b988acc0922c7 /cpan
parente4fde5ca79509aa64f80d46497b7d5945e066222 (diff)
downloadperl-4725e868e1e96081bcc0f978318916bd7f8256a9.tar.gz
Upgrade parent from 0.225 to 0.226
Diffstat (limited to 'cpan')
-rw-r--r--cpan/parent/lib/parent.pm2
-rw-r--r--cpan/parent/t/parent.t7
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 };