diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-10-10 09:32:49 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-10-10 09:32:49 -0400 |
commit | 3a7d7eb96fc3aae5a90a485b8e620778902e7246 (patch) | |
tree | 9baca10b03ba653005b7e396d8f3a135017c104b | |
parent | 42e4a324c9ed0b285c6a05fc0d502babf8495ae6 (diff) | |
download | parse-keyword-3a7d7eb96fc3aae5a90a485b8e620778902e7246.tar.gz parse-keyword-3a7d7eb96fc3aae5a90a485b8e620778902e7246.zip |
fix formatting for newer Carp (#7)
-rw-r--r-- | t/fun/name.t | 2 |
1 files changed, 1 insertions, 1 deletions
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 }; |