From 01042240a68d3679b5a2ee67efc43109a05e1f68 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 20 Aug 2012 11:06:03 -0500 Subject: grrr carp dot --- t/name.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/name.t b/t/name.t index 74195fe..e3d76ce 100644 --- a/t/name.t +++ b/t/name.t @@ -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/); } } -- cgit v1.2.3