X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regexec.c;h=efdd8df7abe2b84d4a7e8312803837b008ae61eb;hb=52a55424e4624fc79eb8894fb91c5e2f4a9018ab;hp=d161c1b03d943968574c91255e6caa0950602de3;hpb=ce333219556f6d529f7e259feeb5cc99020a19a7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regexec.c b/regexec.c
index d161c1b..efdd8df 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1943,6 +1943,12 @@ 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*/