X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=7c51e93f433583e4576f10f241c3e843a471395f;hb=52a55424e4624fc79eb8894fb91c5e2f4a9018ab;hp=762ffdaf8218905051d55a92d1295a6d1ec50fde;hpb=ae0e3d3b35cf70354d3fdbc894ffe3064a567667;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index 762ffda..7c51e93 100644
--- a/perl.h
+++ b/perl.h
@@ -3114,17 +3114,16 @@ enum {		/* pass one of these to get_vtbl */
 #define RsPARA(sv)    (SvPOK(sv) && ! SvCUR(sv))
 #define RsRECORD(sv)  (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
 
-#ifdef DEBUGGING
-/* A struct for keeping various DEBUGGING related stuff
+/* A struct for keeping various DEBUGGING related stuff,
  * neatly packed.  Currently only scratch variables for
- * constructing debug output are included. */
+ * constructing debug output are included.  Needed always,
+ * not just when DEBUGGING, though, because of the re extension. c*/
 struct perl_debug_pad {
   SV pad[3];
 };
 
 #define PERL_DEBUG_PAD(i)	&(PL_debug_pad.pad[i])
 #define PERL_DEBUG_PAD_ZERO(i)	(sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i))
-#endif
 
 /* Enable variables which are pointers to functions */
 typedef void (CPERLscope(*peep_t))(pTHX_ OP* o);