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 (file)
--- 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)