diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-04-13 18:39:33 +0300 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-13 13:28:50 +0000 |
| commit | 2757e526e6581a1ca50cec2e6e969471038f97d2 (patch) | |
| tree | 6e3c7d7739300c49d81cf2cb63566d5754fdb880 /regexec.c | |
| parent | 7b6dd8c39a431f48c8380b4950f1d9068ea2662e (diff) | |
| download | perl-2757e526e6581a1ca50cec2e6e969471038f97d2.tar.gz | |
regexec.c: (Coverity) move NULL check even earlier
Message-Id: <200604131239.k3DCdXhe124107@kosh.hut.fi>
Date: Thu, 13 Apr 2006 15:39:33 +0300 (EEST)
p4raw-id: //depot/perl@27788
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 13 |
1 files changed, 10 insertions, 3 deletions
@@ -1605,10 +1605,10 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * char *scream_olds = NULL; SV* oreplsv = GvSV(PL_replgv); const bool do_utf8 = DO_UTF8(sv); - const I32 multiline = prog->reganch & PMf_MULTILINE; + I32 multiline; #ifdef DEBUGGING - SV * const dsv0 = PERL_DEBUG_PAD_ZERO(0); - SV * const dsv1 = PERL_DEBUG_PAD_ZERO(1); + SV* dsv0; + SV* dsv1; #endif GET_RE_DEBUG_FLAGS_DECL; @@ -1621,6 +1621,13 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * return 0; } + multiline = prog->reganch & PMf_MULTILINE; + +#ifdef DEBUGGING + dsv0 = PERL_DEBUG_PAD_ZERO(0); + dsv1 = PERL_DEBUG_PAD_ZERO(1); +#endif + #ifdef DEBUGGING PL_regnarrate = DEBUG_r_TEST; #endif |