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 (file)
--- 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 */