| Subject: | Endless loop in 02.mark.t with perl 5.12.0 |
Running
/usr/perl-5.12.0-RC0/bin/perl -Mblib -d:Trace t/02.mark.t
shows the endless loop. These lines are reported over and over again:
Show quoted text
>> t/02.mark.t:190: $modified = 0;
>> t/02.mark.t:191: while (m{${_M}(?:a)}g) {
>> t/02.mark.t:192: if (1) {
>> t/02.mark.t:193: s{${_M}(?:a)\G}{b${_M}};
>> t/02.mark.t:194: $modified = 1;
>> t/02.mark.t:196: }
Regards,
Slaven