summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-08-20 11:06:03 -0500
committerJesse Luehrs <doy@tozt.net>2012-08-20 11:06:03 -0500
commit01042240a68d3679b5a2ee67efc43109a05e1f68 (patch)
tree128da9623947ea5b364d8d41b94a939478d1d966
parent935f74a73cc2859134d400d50acc57d524fcfe31 (diff)
downloadfun-01042240a68d3679b5a2ee67efc43109a05e1f68.tar.gz
fun-01042240a68d3679b5a2ee67efc43109a05e1f68.zip
grrr carp dot
-rw-r--r--t/name.t4
1 files 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/);
}
}