From 1616c2f14011d2fccfcd5d08e97e3c0d719e23e3 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 21 May 2021 16:49:21 -0700 Subject: [PATCH] cleanup debug statements --- lib/Perl/Tidy/Formatter.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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" }; } } -- 2.39.5