From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 21 May 2021 23:49:21 +0000 (-0700)
Subject: cleanup debug statements
X-Git-Tag: 20210402.01~34
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1616c2f14011d2fccfcd5d08e97e3c0d719e23e3;p=perltidy.git

cleanup debug statements
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 29b1e894..91b88821 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -8713,7 +8713,7 @@ sub break_before_list_opening_containers {
             my $Msg = "";
             if ($has_list_with_lec) {
                 $ok_to_break = 1;
-                $Msg         = "has list with lec;";
+                DEBUG_BBX && do { $Msg = "has list with lec;" };
             }
 
             if ( !$ok_to_break ) {
@@ -8728,7 +8728,7 @@ sub break_before_list_opening_containers {
 
                 my $parent = $rparent_of_seqno->{$seqno};
                 if ( $self->is_list_by_seqno($parent) ) {
-                    $Msg         = "parent is list";
+                    DEBUG_BBX && do { $Msg = "parent is list" };
                     $ok_to_break = 1;
                 }
             }
@@ -8738,7 +8738,7 @@ sub break_before_list_opening_containers {
             if ( !$ok_to_break && $rOpts_line_up_parentheses ) {
                 if ( $is_list && $has_list ) {
                     $ok_to_break = 1;
-                    $Msg         = "is list or has list";
+                    DEBUG_BBX && do { $Msg = "is list or has list" };
                 }
             }