In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c2b4244a1cd5bb89e0df552475efbb59ea37e706?hp=0e3f4440d849cf8fca676f87e574164e33cf2e13>
- Log ----------------------------------------------------------------- commit c2b4244a1cd5bb89e0df552475efbb59ea37e706 Author: Abigail <[email protected]> Date: Thu Sep 14 00:17:53 2017 +0200 Test for 0e3f4440d849cf8fca676f87e574164e33cf2e13 Commit 0e3f4440d849cf8fca676f87e574164e33cf2e13 fixes issue #131868 by silencing a warning which should not happen. This patch checks that the warning is not happening. ----------------------------------------------------------------------- Summary of changes: t/lib/warnings/regcomp | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp index 129b24ac04..55265315e5 100644 --- a/t/lib/warnings/regcomp +++ b/t/lib/warnings/regcomp @@ -95,3 +95,15 @@ qr/\N{}/; EXPECT Unknown charname '' at - line 2, within pattern Execution of - aborted due to compilation errors. +######## +# NAME [perl #131868] +use warnings; +my $qr = qr { + (?(DEFINE) + (?<digit> [0-9]) + (?<digits> (?&digit){4}) + ) + ^(?&digits)$ +}x; +EXPECT +######## -- Perl5 Master Repository
