diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-09 17:39:40 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-11 18:07:52 +0000 |
| commit | 54dc92de45fcd4ecd424e5092d7d46275547e13a (patch) | |
| tree | b9153e42bad9c7a142261f910bf58cc0191c3e00 /regcomp.c | |
| parent | 42ab721cb4e97487f3f944268e5447a25cb4d061 (diff) | |
| download | perl-54dc92de45fcd4ecd424e5092d7d46275547e13a.tar.gz | |
applied patch, tweaked doc and code that does labels/indentation
Message-Id: <199807100139.VAA08617@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_71] perldebug.pod and RE
p4raw-id: //depot/perl@1429
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2246,7 +2246,7 @@ dumpuntil(regnode *start, regnode *node, regnode *last, SV* sv, I32 l) if (OP(node) == OPTIMIZED) goto after_print; regprop(sv, node); - PerlIO_printf(Perl_debug_log, "%4d%*s%s", node - start, + PerlIO_printf(Perl_debug_log, "%4d:%*s%s", node - start, 2*l + 1, "", SvPVX(sv)); if (next == NULL) /* Next ptr. */ PerlIO_printf(Perl_debug_log, "(0)"); @@ -2364,7 +2364,7 @@ regprop(SV *sv, regnode *o) #ifdef DEBUGGING register char *p = 0; - sv_setpv(sv, ":"); + sv_setpvn(sv, "", 0); switch (OP(o)) { case BOL: p = "BOL"; |