diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-12 02:53:25 +0300 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-11 21:53:33 +0000 |
| commit | 73060fc4fcb529eef1cf61f35c9ffe55d4ed47de (patch) | |
| tree | 76366d302d9f6c6d39a725a7623b0cbe5fbec8df /regcomp.c | |
| parent | 0f0f9e2bc563abd8d7ce0492ab8d3d803fb9e687 (diff) | |
| download | perl-73060fc4fcb529eef1cf61f35c9ffe55d4ed47de.tar.gz | |
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
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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) |