From fc32ee4a20cad290b8f0976573f6b6604bee812f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 19 Apr 2006 09:34:48 +0000
Subject: There's a macro to get ${^RE_DEBUG_FLAGS} when debugging, so use it
 (and this fixes a valgrind memory access error)

p4raw-id: //depot/perl@27899
---
 regcomp.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'regcomp.c')

diff --git a/regcomp.c b/regcomp.c
index 0e53589d95..ce24f44bde 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5994,9 +5994,8 @@ Perl_pregfree(pTHX_ struct regexp *r)
     dVAR;
 #ifdef DEBUGGING
     SV * const dsv = PERL_DEBUG_PAD_ZERO(0);
-    SV * const re_debug_flags=get_sv(RE_DEBUG_FLAGS,0);
 #endif
-
+    GET_RE_DEBUG_FLAGS_DECL;
 
     if (!r || (--r->refcnt > 0))
 	return;
-- 
cgit v1.2.1