In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/964a4988d8d817b838ce779c43bc86d4e738c878?hp=ddb5125fc979ebb146d87e7eedd2e196706c06ea>
- Log ----------------------------------------------------------------- commit 964a4988d8d817b838ce779c43bc86d4e738c878 Author: Craig A. Berry <[email protected]> Date: Thu Jul 22 08:27:40 2010 -0500 Looser filename matching for new Carp.t tests. ----------------------------------------------------------------------- Summary of changes: lib/Carp.t | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Carp.t b/lib/Carp.t index 1541341..1c59987 100644 --- a/lib/Carp.t +++ b/lib/Carp.t @@ -305,7 +305,7 @@ for my $bodge_job (2, 1, 0) { like( $got, qr/${package}::long\($warning\) called at $previous_package line 7/, "Correct arguments for $package" ); } my $arg = $bodge_job ? $warning : 42; - like( $got, qr!A::long\($arg\) called at .*lib/Carp.t line \d+!, + like( $got, qr!A::long\($arg\) called at.+\b(?i:carp\.t) line \d+!, 'Correct arguments for A' ); } @@ -320,7 +320,7 @@ EOT my $got = A::long(42); -like( $got, qr!A::long\(\Q** Incomplete caller override detected; \...@db::args\Q were not set **\E\) called at .*lib/Carp.t line \d+!, +like( $got, qr!A::long\(\Q** Incomplete caller override detected; \...@db::args\Q were not set **\E\) called at.+\b(?i:carp\.t) line \d+!, 'Correct arguments for A' ); # New tests go here -- Perl5 Master Repository
