[interchange] Correct some misleading debugging output

Jon Jensen interchange-cvs at icdevgroup.org
Tue Sep 18 20:09:01 UTC 2018


commit cedd5419d1a1892adbe24fc008c1958e8ff43342
Author: Jon Jensen <jon at endpoint.com>
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'}#



More information about the interchange-cvs mailing list