summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2001-11-23 15:15:24 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-23 14:58:40 +0000
commita1917ab96472a0f938aee4646d539e070dc12cd3 (patch)
tree4d35bf29ff86d87260b1026dd452e78b068e120b /regcomp.c
parent2a5a0c38d81f8514d109f773aaadbf70b29e85b9 (diff)
downloadperl-a1917ab96472a0f938aee4646d539e070dc12cd3.tar.gz
Re: regex oddness with \Z and $&
Message-Id: <200111231515.fANFFOR10341@crypt.compulink.co.uk> p4raw-id: //depot/perl@13198
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index 12e03959fd..3eb4e3937d 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2795,6 +2795,7 @@ tryagain:
case 'Z':
ret = reg_node(pRExC_state, SEOL);
*flagp |= SIMPLE;
+ RExC_seen_zerolen++; /* Do not optimize RE away */
nextchar(pRExC_state);
break;
case 'z':