summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:39:15 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:39:15 +0000
commit48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f (patch)
treedfa745a711f2bb8d0dce658945d73bdd69c3819a /regexec.c
parent44513350cdc313b5a0c1fcf32a9a2db7a735db03 (diff)
downloadperl-48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f.tar.gz
Make regex DEBUGGING faster.
p4raw-id: //depot/perl@15297
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/regexec.c b/regexec.c
index 9264b8639a..00bd6ef793 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2054,12 +2054,6 @@ S_regtry(pTHX_ regexp *prog, char *startpos)
New(22,PL_reg_start_tmp, PL_reg_start_tmpl, char*);
}
-#ifdef DEBUGGING
- sv_setpvn(PERL_DEBUG_PAD(0), "", 0);
- sv_setpvn(PERL_DEBUG_PAD(1), "", 0);
- sv_setpvn(PERL_DEBUG_PAD(2), "", 0);
-#endif
-
/* XXXX What this code is doing here?!!! There should be no need
to do this again and again, PL_reglastparen should take care of
this! --ilya*/