This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #122671] Many warnings in regcomp.c can occur twice
[perl5.git] / t / lib / warnings / regcomp
1   regcomp.c     These tests have been moved to t/re/reg_mesg.t
2                 except for those that explicitly test line numbers
3                 and those that don't have a <-- HERE in them.
4
5 __END__
6 use warnings 'regexp';
7 $r=qr/(??{ q"\\b+" })/;
8 "a" =~ /a$r/; # warning should come from this line
9 EXPECT
10 \b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3.
11 ########
12 # regcomp.c
13 use warnings 'digit' ;
14 my $a = qr/\o{1238456}\x{100}/;
15 my $a = qr/[\o{6548321}]\x{100}/;
16 no warnings 'digit' ;
17 my $a = qr/\o{1238456}\x{100}/;
18 my $a = qr/[\o{6548321}]\x{100}/;
19 EXPECT
20 Non-octal character '8'.  Resolved as "\o{123}" at - line 3.
21 Non-octal character '8'.  Resolved as "\o{654}" at - line 4.
22 ########
23 # regcomp.c.c
24 use warnings;
25 $a = qr/\c,/;
26 $a = qr/[\c,]/;
27 no warnings 'syntax';
28 $a = qr/\c,/;
29 $a = qr/[\c,]/;
30 EXPECT
31 "\c," is more clearly written simply as "l" at - line 3.
32 "\c," is more clearly written simply as "l" at - line 4.