[interchange] Correct some misleading debugging output
Jon Jensen <[email protected]> Tue, 18 Sep 2018 20:09:01 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit cedd5419d1a1892adbe24fc008c1958e8ff43342 Author: Jon Jensen <[email protected]> Date: Tue Sep 18 12:57:25 2018 -0600 Correct some misleading debugging output lib/Vend/Interpolate.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) --- diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm index 62b46f8..38677e6 100644 --- a/lib/Vend/Interpolate.pm +++ b/lib/Vend/Interpolate.pm @@ -4252,8 +4252,8 @@ my $once = 0; last unless defined $row; $code = $row->[0]; -#::logDebug("Doing $code substitution, count $count++"); -#::logDebug("Doing '" . substr($code, 0, index($code, "\n") + 1) . "' substitution, count $count++"); +#::logDebug("Doing $code substitution, count $count"); +#::logDebug("Doing '" . substr($code, 0, index($code, "\n") + 1) . "' substitution, count $count"); $run = $text; $run =~ s#$B$QR{_alternate}$E$QR{'/_alternate'}# @@ -4439,7 +4439,7 @@ sub iterate_hash_list { $code = $item->{$code_field} || $item->{code}; $code = '' unless defined $code; -#::logDebug("Doing $code (variant $item->{code}) substitution, count $count++"); +#::logDebug("Doing $code (variant $item->{code}) substitution, count $count"); $run = $text; $run =~ s#$B$QR{_alternate}$E$QR{'/_alternate'}#