From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 8 Sep 1999 05:02:02 +0000 (-0400)
Subject: Fix debugging output for REx
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=04ebc1ab60c65d1a243926252d72cc1475abc433;p=p5sagit%2Fp5-mst-13.2.git

Fix debugging output for REx

To: Mailing list Perl5 <perl5-porters@perl.org>
Message-ID: <19990908050201.A17682@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@4104
---

diff --git a/regcomp.c b/regcomp.c
index fe54a6c..ed1b3bd 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3257,7 +3257,7 @@ Perl_regprop(pTHX_ SV *sv, regnode *o)
     else if (k == REF || k == OPEN || k == CLOSE || k == GROUPP )
 	Perl_sv_catpvf(aTHX_ sv, "%d", ARG(o));	/* Parenth number */
     else if (k == LOGICAL)
-	Perl_sv_catpvf(aTHX_ sv, "[%d]", ARG(o));	/* 2: embedded, otherwise 1 */
+	Perl_sv_catpvf(aTHX_ sv, "[%d]", o->flags);	/* 2: embedded, otherwise 1 */
     else if (k == BRANCHJ && (OP(o) == UNLESSM || OP(o) == IFMATCH))
 	Perl_sv_catpvf(aTHX_ sv, "[-%d]", o->flags);
 #endif	/* DEBUGGING */