From 964a4988d8d817b838ce779c43bc86d4e738c878 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Thu, 22 Jul 2010 08:27:40 -0500 Subject: Looser filename matching for new Carp.t tests. --- lib/Carp.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Carp.t') diff --git a/lib/Carp.t b/lib/Carp.t index 1541341401..1c59987c49 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; \E\@DB::args\Q were not set **\E\) called at .*lib/Carp.t line \d+!, +like( $got, qr!A::long\(\Q** Incomplete caller override detected; \E\@DB::args\Q were not set **\E\) called at.+\b(?i:carp\.t) line \d+!, 'Correct arguments for A' ); # New tests go here -- cgit v1.2.1