diff options
author | Max Maischein <corion@corion.net> | 2022-12-07 22:01:51 +0000 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2022-12-07 22:01:51 +0000 |
commit | a357bb956571f97b412a75b85e8e19a4550e4caa (patch) | |
tree | 0f57803afb9734fe5d0ecd9429d27604d8d5a67c | |
parent | 76062242c5bacb046859572260d73cd6bc6f2004 (diff) | |
download | perl-a357bb956571f97b412a75b85e8e19a4550e4caa.tar.gz |
Update parent to CPAN version 2.39
From Changes (0.239 2022-12-06):
Harden against changes to require error messages. The '@INC contains'
may change in a future release of perl, this hardens the test to
not be sensitive to the exact words chosen. See:
https://github.com/Perl/perl5/pull/20547
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-rw-r--r-- | cpan/parent/lib/parent.pm | 2 | ||||
-rw-r--r-- | cpan/parent/t/parent.t | 5 |
3 files changed, 4 insertions, 5 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 74093af680..7d5ffb4d84 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -896,7 +896,7 @@ use File::Glob qw(:case); }, 'parent' => { - 'DISTRIBUTION' => 'CORION/parent-0.238.tar.gz', + 'DISTRIBUTION' => 'CORION/parent-0.239.tar.gz', 'FILES' => q[cpan/parent], 'EXCLUDED' => [ qr{^xt} diff --git a/cpan/parent/lib/parent.pm b/cpan/parent/lib/parent.pm index f2405efe7e..50df1f491c 100644 --- a/cpan/parent/lib/parent.pm +++ b/cpan/parent/lib/parent.pm @@ -1,7 +1,7 @@ package parent; use strict; -our $VERSION = '0.238'; +our $VERSION = '0.239'; sub import { my $class = shift; diff --git a/cpan/parent/t/parent.t b/cpan/parent/t/parent.t index a29a3f3283..51fee12508 100644 --- a/cpan/parent/t/parent.t +++ b/cpan/parent/t/parent.t @@ -56,8 +56,8 @@ 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:/} +my $expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(\@INC[\w ]+:/}; +$expected= q{/^Can't locate reallyReAlLyNotexists.pm in \@INC \(you may need to install the reallyReAlLyNotexists module\) \(\@INC[\w ]+:/} if 5.017005 <= $]; eval q{use parent 'reallyReAlLyNotexists'}; @@ -74,4 +74,3 @@ like( $@, $expected, ' still failing on 2nd load'); use parent -norequire, 'Has::Version_0'; ::is( $Has::Version_0::VERSION, 0, '$VERSION==0 preserved' ); } - |