Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!wuarchive!uunet!kddlab!cs.titech!wnoc-tyo-news!rena!lkbreth!octavia!serow
From: serow@octavia.ibix.co.jp (Yoshitomo Tanaka)
Newsgroups: comp.lang.perl
Subject: perl 4 pl 10 (bug?)
Message-ID: <SEROW.91Jun11183834@octavia.ibix.co.jp>
Date: 11 Jun 91 09:38:34 GMT
Sender: news@octavia.ibix.co.jp
Distribution: comp
Organization: IBIX Co., Ltd. Tokyo, Japan
Lines: 16

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
 \---   |