Mailing List Archive

commit cedd5419d1a1892adbe24fc008c1958e8ff43342
Author: Jon Jensen <jon@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'}#

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs