From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Apr 2006 23:53:25 +0000 (+0300)
Subject: regcomp.c (try II): use &PL_sv_undef for listsv as suggested by Nick
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73060fc4fcb529eef1cf61f35c9ffe55d4ed47de;p=p5sagit%2Fp5-mst-13.2.git

regcomp.c (try II): use &PL_sv_undef for listsv as suggested by Nick
Message-Id: <200604112053.k3BKrPgk310001@kosh.hut.fi>
Date: Tue, 11 Apr 2006 23:53:25 +0300 (EEST)

p4raw-id: //depot/perl@27771
---

diff --git a/regcomp.c b/regcomp.c
index ff17478..8815003 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4666,8 +4666,10 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
 	    ANYOF_FLAGS(ret) |= ANYOF_INVERT;
     }
 
-    if (SIZE_ONLY)
+    if (SIZE_ONLY) {
 	RExC_size += ANYOF_SKIP;
+	listsv = &PL_sv_undef; /* For code scanners: listsv always non-NULL. */
+    }
     else {
  	RExC_emit += ANYOF_SKIP;
 	if (FOLD)