diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 19:13:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-18 19:13:06 +0000 |
| commit | 6f6556d4714815b8a36585bfd88e06c9fd8c273d (patch) | |
| tree | 0d2c9c5dd487bb05cfb7922720991a2b4e62d888 /regexec.c | |
| parent | 1497789321a3812581136bb80750207bffc72afc (diff) | |
| download | perl-6f6556d4714815b8a36585bfd88e06c9fd8c273d.tar.gz | |
(retracted by #13096)
Debugging would be badly skewed by a malloc per regex dump.
p4raw-id: //depot/perl@13082
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 20 |
1 files changed, 15 insertions, 5 deletions
@@ -390,7 +390,9 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos, char *check_at = Nullch; /* check substr found at this pos */ #ifdef DEBUGGING char *i_strpos = strpos; - SV *dsv = sv_2mortal(newSVpvn("", 0)); + static SV *dsv; + if (!dsv) + dsv = newSVpvn("", 0); #endif DEBUG_r({ @@ -1465,7 +1467,9 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char * SV* oreplsv = GvSV(PL_replgv); bool do_utf8 = DO_UTF8(sv); #ifdef DEBUGGING - SV *dsv = sv_2mortal(newSVpvn("", 0)); + static SV *dsv; + if (!dsv) + dsv = newSVpvn("", 0); #endif PL_regcc = 0; @@ -2050,9 +2054,15 @@ S_regmatch(pTHX_ regnode *prog) #endif register bool do_utf8 = PL_reg_match_utf8; #ifdef DEBUGGING - SV *dsv0 = sv_2mortal(newSVpvn("", 0)); - SV *dsv1 = sv_2mortal(newSVpvn("", 0)); - SV *dsv2 = sv_2mortal(newSVpvn("", 0)); + static SV *dsv0; + static SV *dsv1; + static SV *dsv2; + if (!dsv0) + dsv0 = newSVpvn("", 0); + if (!dsv1) + dsv1 = newSVpvn("", 0); + if (!dsv2) + dsv2 = newSVpvn("", 0); #endif #ifdef DEBUGGING |