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
CommitLineData
63fbd1cb 1 regcomp.c These tests have been moved to t/re/reg_mesg.t
499333dc
KW
2 except for those that explicitly test line numbers
3 and those that don't have a <-- HERE in them.
f9373011 4
599cee73 5__END__
dd8ddecf
FC
6use warnings 'regexp';
7$r=qr/(??{ q"\\b+" })/;
8"a" =~ /a$r/; # warning should come from this line
9EXPECT
10\b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3.
499333dc
KW
11########
12# regcomp.c
13use warnings 'digit' ;
14my $a = qr/\o{1238456}\x{100}/;
15my $a = qr/[\o{6548321}]\x{100}/;
16no warnings 'digit' ;
17my $a = qr/\o{1238456}\x{100}/;
18my $a = qr/[\o{6548321}]\x{100}/;
19EXPECT
20Non-octal character '8'. Resolved as "\o{123}" at - line 3.
21Non-octal character '8'. Resolved as "\o{654}" at - line 4.
22########
23# regcomp.c.c
24use warnings;
25$a = qr/\c,/;
26$a = qr/[\c,]/;
27no warnings 'syntax';
28$a = qr/\c,/;
29$a = qr/[\c,]/;
30EXPECT
31"\c," is more clearly written simply as "l" at - line 3.
32"\c," is more clearly written simply as "l" at - line 4.