diff options
Diffstat (limited to 't/name.t')
| -rw-r--r-- | t/name.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -22,7 +22,7 @@ my $line = __LINE__; my $line_confess = $line + 6; my $line_foo = $line + 10; - ::like($@, qr/^abc 123 at $file line $line_confess\.\n\tFoo::foo\('abc', 123\) called at $file line $line_foo/); + ::like($@, qr/^abc 123 at $file line $line_confess\.?\n\tFoo::foo\('abc', 123\) called at $file line $line_foo/); } SKIP: { skip "Sub::Name required", 1 unless eval { require Sub::Name }; @@ -39,7 +39,7 @@ SKIP: { skip "Sub::Name required", 1 unless eval { require Sub::Name }; my $line_confess = $line + 24; my $line_bar = $line + 27; - ::like($@, qr/^9 at $file line $line_confess\.\n\tBar::bar\(4, 5\) called at $file line $line_bar/); + ::like($@, qr/^9 at $file line $line_confess\.?\n\tBar::bar\(4, 5\) called at $file line $line_bar/); } } |