diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-08-25 00:29:49 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-24 08:39:41 +0000 |
| commit | d1b8022985c09823f9032ec74d6ce16d9391f57d (patch) | |
| tree | 0e1bc2fbc39f52244cece88755a43249967798f2 /regcomp.c | |
| parent | 9ea370a75330a8ebfe27730428b6c5793636dc59 (diff) | |
| download | perl-d1b8022985c09823f9032ec74d6ce16d9391f57d.tar.gz | |
Extraneous warning for (?()A|B)
Message-Id: <199808250829.EAA02470@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1873
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1210,10 +1210,14 @@ reg(I32 paren, I32 *flagp) else regtail(br, reganode(LONGJMP, 0)); c = *nextchar(); + if (flags&HASWIDTH) + *flagp |= HASWIDTH; if (c == '|') { lastbr = reganode(IFTHEN, 0); /* Fake one for optimizer. */ regbranch(&flags, 1); regtail(ret, lastbr); + if (flags&HASWIDTH) + *flagp |= HASWIDTH; c = *nextchar(); } else |