From d24b7a332f7adb719d3f3a3f547f177313da154b Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 29 Aug 2024 06:45:02 -0700 Subject: [PATCH] simplify --- lib/Perl/Tidy/Formatter.pm | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index e78f276d..17b7560b 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -9042,14 +9042,9 @@ sub is_complete_script { : 0; # common filter keywords - $score += 50 - if ( $rkeyword_count->{exit} - || $rkeyword_count->{print} - || $rkeyword_count->{printf} - || $rkeyword_count->{open} - || $rkeyword_count->{system} - || $rkeyword_count->{exec} - || $rkeyword_count->{die} ); + foreach (qw(exit print printf open system exec die)) { + if ( $rkeyword_count->{$_} ) { $score += 50; last; } + } $score += 50 if $rline_type_count->{POD}; @@ -21650,7 +21645,7 @@ sub process_all_lines { } $logger_object->black_box( $line_of_tokens, - $vertical_aligner_object->get_output_line_number ); + $vertical_aligner_object->get_output_line_number() ); } } -- 2.39.5