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 /regexec.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 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -774,14 +774,14 @@ regmatch(regnode *prog) ? (5 + taill) - pref_len : regeol - locinput); regprop(prop, scan); PerlIO_printf(Perl_debug_log, - "%4i <%s%.*s%s%s%s%.*s%s>%*s|%*s%2d%s\n", + "%4i <%s%.*s%s%s%s%.*s%s>%*s|%3d:%*s%s\n", locinput - bostr, colors[2], pref_len, locinput - pref_len, colors[3], (docolor ? "" : "> <"), colors[0], l, locinput, colors[1], 15 - l - pref_len + 1, "", - regindent*2, "", scan - regprogram, + scan - regprogram, regindent*2, "", SvPVX(prop)); } ); |