diff options
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/parent/lib/parent.pm | 2 | ||||
| -rw-r--r-- | cpan/parent/t/parent.t | 7 | ||||
| -rw-r--r-- | pod/perldelta.pod | 4 |
4 files changed, 11 insertions, 4 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 18d3317d70..cf6834a0d9 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1307,7 +1307,7 @@ use File::Glob qw(:case); 'parent' => { 'MAINTAINER' => 'corion', - 'DISTRIBUTION' => 'CORION/parent-0.225.tar.gz', + 'DISTRIBUTION' => 'CORION/parent-0.226.tar.gz', 'FILES' => q[cpan/parent], 'UPSTREAM' => undef, }, 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 }; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 49ad289b36..c5c97cb628 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -148,6 +148,10 @@ under C<Useqq> has been improved. [perl #118933] =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 |