diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2002-02-03 12:21:45 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-04 13:30:55 +0000 |
| commit | 438a380156ae0ffaf23d68d3658b8429f19d614f (patch) | |
| tree | 31c9dd81b26b63fe9346b44c8cd83b55d229e323 /regcomp.c | |
| parent | fd90170b3da6a44ee7f1f3aacf4ee2cce1cf4226 (diff) | |
| download | perl-438a380156ae0ffaf23d68d3658b8429f19d614f.tar.gz | |
(??{ }) anomaly
Message-ID: <ZxgX8gzkgCXO092yn@efn.org>
p4raw-id: //depot/perl@14547
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2168,6 +2168,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp) /* FALL THROUGH*/ case '?': /* (??...) */ logical = 1; + if (*RExC_parse != '{') + goto unknown; paren = *RExC_parse++; /* FALL THROUGH */ case '{': /* (?{...}) */ |