diff options
| author | Vincent Pit <vince@profvince.com> | 2009-11-08 15:48:07 +0100 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-11-08 15:58:43 +0100 |
| commit | ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d (patch) | |
| tree | 9a4235cdaec67a513f0058aa796affae779786cd /regexec.c | |
| parent | c20642991d8e8afa0a97a45a55f0f04df68e5245 (diff) | |
| download | perl-ef8d46e8143455a8b73aff3ecaa10ca3cf293a4d.tar.gz | |
SvREFCNT_dec already checks if the SV is non-NULL (continued)
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -961,9 +961,9 @@ Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV *sv, char *strpos, { /* If flags & SOMETHING - do not do it many times on the same match */ DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log, "... Disabling check substring...\n")); + /* XXX Does the destruction order has to change with do_utf8? */ SvREFCNT_dec(do_utf8 ? prog->check_utf8 : prog->check_substr); - if (do_utf8 ? prog->check_substr : prog->check_utf8) - SvREFCNT_dec(do_utf8 ? prog->check_substr : prog->check_utf8); + SvREFCNT_dec(do_utf8 ? prog->check_substr : prog->check_utf8); prog->check_substr = prog->check_utf8 = NULL; /* disable */ prog->float_substr = prog->float_utf8 = NULL; /* clear */ check = NULL; /* abort */ |