develooper Front page | perl.perl5.porters | Postings from April 2006

[PATCH] regcomp.c (try II): use &PL_sv_undef for listsv as suggested by Nick

Thread Next
From:
Jarkko Hietaniemi
Date:
April 11, 2006 13:54
Subject:
[PATCH] regcomp.c (try II): use &PL_sv_undef for listsv as suggested by Nick
Message ID:
200604112053.k3BKrPgk310001@kosh.hut.fi
--- regcomp.c.dist	2006-04-11 22:28:55.000000000 +0300
+++ regcomp.c	2006-04-11 23:43:56.000000000 +0300
@@ -4666,8 +4666,10 @@
 	    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)
@@ -4678,6 +4680,7 @@
 	listsv = newSVpvs("# comment\n");
     }
 
+
     nextvalue = RExC_parse < RExC_end ? UCHARAT(RExC_parse) : 0;
 
     if (!SIZE_ONLY && POSIXCC(nextvalue))

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About