diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-09-08 01:02:02 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-08 08:57:58 +0000 |
| commit | 04ebc1ab60c65d1a243926252d72cc1475abc433 (patch) | |
| tree | 47ca61d6bb09f42f2de84966550bb53666f296b6 | |
| parent | 427181846486e3aa5034a647dc1922377185f4c0 (diff) | |
| download | perl-04ebc1ab60c65d1a243926252d72cc1475abc433.tar.gz | |
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
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 */ |