diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/warnings/regcomp')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/warnings/regcomp | 43 |
1 files changed, 16 insertions, 27 deletions
diff --git a/gnu/usr.bin/perl/t/lib/warnings/regcomp b/gnu/usr.bin/perl/t/lib/warnings/regcomp index 367276d0fc8..516de419116 100644 --- a/gnu/usr.bin/perl/t/lib/warnings/regcomp +++ b/gnu/usr.bin/perl/t/lib/warnings/regcomp @@ -83,38 +83,27 @@ EXPECT ]]]]][\ ==> Unmatched [ in regex; marked by <-- HERE in m/]]]]][\ <-- HERE / at - line 2. ######## # NAME [perl #123417] -use warnings 'regexp'; -qr/[\N{}]/; -qr/\N{}/; -no warnings 'regexp'; -qr/[\N{}]/; -qr/\N{}/; -no warnings 'deprecated'; -qr/[\N{}]/; -qr/\N{}/; -EXPECT -Unknown charname '' is deprecated at - line 2. -Ignoring zero length \N{} in character class in regex; marked by <-- HERE in m/[\N{} <-- HERE ]/ at - line 2. -Unknown charname '' is deprecated at - line 3. -Unknown charname '' is deprecated at - line 5. -Unknown charname '' is deprecated at - line 6. -######## -# NAME [perl #123417] # OPTION fatal -use warnings 'regexp'; -no warnings 'experimental::re_strict'; -use re 'strict'; qr/[\N{}]/; EXPECT -Unknown charname '' is deprecated at - line 5. -Zero length \N{} in regex; marked by <-- HERE in m/[\N{} <-- HERE ]/ at - line 5. +Unknown charname '' at - line 2, within pattern +Execution of - aborted due to compilation errors. ######## # NAME [perl #123417] # OPTION fatal -use warnings 'regexp'; -no warnings 'experimental::re_strict'; -use re 'strict'; qr/\N{}/; EXPECT -Unknown charname '' is deprecated at - line 5. -Zero length \N{} in regex; marked by <-- HERE in m/\N{} <-- HERE / at - line 5. +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 +######## |