Upgrade parent from 0.225 to 0.226

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 18d3317..cf6834a 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1307,7 +1307,7 @@ use File::Glob qw(:case);
 
     'parent' => {
         'MAINTAINER'   => 'corion',
 
     'parent' => {
         'MAINTAINER'   => 'corion',

-        'DISTRIBUTION' => 'CORION/parent-0.225.tar.gz',
+        'DISTRIBUTION' => 'CORION/parent-0.226.tar.gz',

         'FILES'        => q[cpan/parent],
         'UPSTREAM'     => undef,
     },
         'FILES'        => q[cpan/parent],
         'UPSTREAM'     => undef,
     },

diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm
index 8f72db8..32f0d6c 100644 (file)
--- a/cpan/parent/lib/parent.pm
+++ b/cpan/parent/lib/parent.pm
@@ -1,7 +1,7 @@
 package parent;
 use strict;
 use vars qw($VERSION);
 package parent;
 use strict;
 use vars qw($VERSION);

-$VERSION = '0.225';
+$VERSION = '0.226';

 
 sub import {
     my $class = shift;
 
 sub import {
     my $class = shift;

diff --git a/cpan/parent/t/parent.t b/cpan/parent/t/parent.t
index 6ee4494..fd1722f 100644 (file)
--- 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' );
 
 
 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'};
 
 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'};
 
 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 };
 {
     my $warning;
     local $SIG{__WARN__} = sub { $warning = shift };

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 49ad289..c5c97cb 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -148,6 +148,10 @@ under C<Useqq> has been improved. [perl #118933]
 
 =item *
 
 
 =item *
 

+L<parent> has been upgraded from version 0.225 to 0.226.
+
+=item *
+

 L<Socket> has been upgraded from version 2.010 to 2.011.
 
 Handle FreeBSD (or other platforms) returning shorter AF_UNIX sockaddr
 L<Socket> has been upgraded from version 2.010 to 2.011.
 
 Handle FreeBSD (or other platforms) returning shorter AF_UNIX sockaddr