[comp.lang.perl] perl 4 pl 10

serow@octavia.ibix.co.jp (Yoshitomo Tanaka) (06/11/91)

On MSDOS, perl 4.0 patchlevel 10  fails on t/op/pat.t test 44-47.

In dolist.c at line 107,
>if (global) {
>    if (spat->spat_regexp->startp[0]) {
>	s = spat->spat_regexp->endp[0];
>    }
>}
It seems to me that startp[0] is refered befor calling regexec().
So, startp[0]/endp[0] has garbage and '/RE/g' does not work right.
I modified regcomp() to allocate startp useing Newz() instead of New(),
and works fine.
----_--__---_-_-_-__--_-__-__---_-_----_--_-_---_---_-----
-+--+-  | Yoshitomo Tanaka
 |  '   | serow@ibix.co.jp
 \---   |