This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix debugging output for REx
authorIlya Zakharevich <ilya@math.berkeley.edu>
Wed, 8 Sep 1999 05:02:02 +0000 (01:02 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Sep 1999 08:57:58 +0000 (08:57 +0000)
To: Mailing list Perl5 <perl5-porters@perl.org>
Message-ID: <19990908050201.A17682@monk.mps.ohio-state.edu>

p4raw-id: //depot/cfgperl@4104

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 */