This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
recomp.c: output given warning in only one pass
[perl5.git] / t / lib / warnings / regcomp
CommitLineData
63fbd1cb 1 regcomp.c These tests have been moved to t/re/reg_mesg.t
dd8ddecf 2 except for those that explicitly test line numbers.
f9373011 3
599cee73 4__END__
dd8ddecf
FC
5use warnings 'regexp';
6$r=qr/(??{ q"\\b+" })/;
7"a" =~ /a$r/; # warning should come from this line
8EXPECT
9\b+ matches null string many times in regex; marked by <-- HERE in m/\b+ <-- HERE / at - line 3.