cleanup debug statements

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 29b1e8944de427a88956c9bb729c62eea9769631..91b8882139a63f7b9c71be05d2afcfec7d8c9abb 100644 (file)
--- 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" };
                 }
             }