This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c (try II): use &PL_sv_undef for listsv as suggested by Nick
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 11 Apr 2006 23:53:25 +0000 (02:53 +0300)
committerNicholas Clark <nick@ccl4.org>
Tue, 11 Apr 2006 21:53:33 +0000 (21:53 +0000)
Message-Id: <200604112053.k3BKrPgk310001@kosh.hut.fi>
Date: Tue, 11 Apr 2006 23:53:25 +0300 (EEST)

p4raw-id: //depot/perl@27771

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)