In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/fd609c8d943a834b7d5da7251eb47c05d7f8f9fc?hp=13596abd4f24423e9d589be6da7837c6d1cbb489>
- Log ----------------------------------------------------------------- commit fd609c8d943a834b7d5da7251eb47c05d7f8f9fc Author: David Mitchell <[email protected]> Date: Thu Oct 27 09:29:33 2016 +0100 Carp/t/arg_string.t: fixup to previous fixup I added alternates to a regex for matching a f/p number, but forgot to put parentheses around them. So it was being ridiculously over-liberal ----------------------------------------------------------------------- Summary of changes: dist/Carp/t/arg_string.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dist/Carp/t/arg_string.t b/dist/Carp/t/arg_string.t index 4c754c532c..dc70f4370b 100644 --- a/dist/Carp/t/arg_string.t +++ b/dist/Carp/t/arg_string.t @@ -26,9 +26,11 @@ like lm(-3), qr/main::lm\(-3\)/; like lm(-3.5), qr/main::lm\(-3\.5\)/; like lm(-3.5e30), qr/main::lm\( + ( -3500000000000000000000000000000 - | -3\.5[eE]\+?0?30\) - /x; + | -3\.5[eE]\+?0?30 + ) + \) /x; like lm(""), qr/main::lm\(""\)/; like lm("foo"), qr/main::lm\("foo"\)/; like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/; -- Perl5 Master Repository
