diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-30 10:06:36 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-31 02:58:17 +0000 |
| commit | 2390ecbcb0b20daf38bdaf45d84f3358380e4adf (patch) | |
| tree | c49b1b283998ca68372ada5630571cf0a83a083f /regexec.c | |
| parent | 0e6dc35ebda8ef721869f0225d5a4607f33c3b6c (diff) | |
| download | perl-2390ecbcb0b20daf38bdaf45d84f3358380e4adf.tar.gz | |
Not OK: perl v5.7.0 +DEVEL9472 on VMS_AXP V7.1 (UNINSTALLED)
Message-ID: <Pine.OSF.4.10.10103301805450.63762-100000@aspara.forte.com>
p4raw-id: //depot/perl@9485
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -3245,9 +3245,15 @@ S_regmatch(pTHX_ regnode *prog) c = utf8_to_uvchr((U8*)PL_reginput, NULL); else c = UCHARAT(PL_reginput); + /* If it could work, try it. */ + if (c == c1 || c == c2) + { + TRYPAREN(paren, n, PL_reginput); + REGCP_UNWIND(lastcp); + } } /* If it could work, try it. */ - if (c1 == -1000 || c == c1 || c == c2) + else if (c1 == -1000) { TRYPAREN(paren, n, PL_reginput); REGCP_UNWIND(lastcp); |