diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-08-20 11:06:03 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-08-20 11:06:03 -0500 |
commit | 01042240a68d3679b5a2ee67efc43109a05e1f68 (patch) | |
tree | 128da9623947ea5b364d8d41b94a939478d1d966 | |
parent | 935f74a73cc2859134d400d50acc57d524fcfe31 (diff) | |
download | fun-01042240a68d3679b5a2ee67efc43109a05e1f68.tar.gz fun-01042240a68d3679b5a2ee67efc43109a05e1f68.zip |
grrr carp dot
-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/); } } |