From 3a7d7eb96fc3aae5a90a485b8e620778902e7246 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 10 Oct 2013 09:32:49 -0400 Subject: fix formatting for newer Carp (#7) --- t/fun/name.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/fun/name.t b/t/fun/name.t index c1e713e..1893a21 100644 --- a/t/fun/name.t +++ b/t/fun/name.t @@ -29,7 +29,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 }; -- cgit v1.2.3