summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2006-06-13 11:39:42 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-06-13 08:32:04 +0000
commit13a24baded0bcfd57a5060f46aead50d004b1374 (patch)
treede800940e0a9748cdf6d1578c6302d4ddcfecf2c /regcomp.c
parent84c0b84e93593c55108ebfb4f82522eee2fd61e1 (diff)
downloadperl-13a24baded0bcfd57a5060f46aead50d004b1374.tar.gz
Guard clause should happen first, otherwise its not a guard clause.
Message-ID: <9b18b3110606130039v1c6a3fe6s448e92ab2a05888a@mail.gmail.com> p4raw-id: //depot/perl@28391
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/regcomp.c b/regcomp.c
index a891c480ce..8ea1dc6cec 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2012,6 +2012,9 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap,
SV *re_trie_maxbuff = NULL;
GET_RE_DEBUG_FLAGS_DECL;
+#ifdef DEBUGGING
+ StructCopy(&zero_scan_data, &data_fake, scan_data_t);
+#endif
while (scan && OP(scan) != END && scan < last) {
/* Peephole optimizer: */