From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 29 Aug 2024 13:45:02 +0000 (-0700)
Subject: simplify
X-Git-Tag: 20240903~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d24b7a332f7adb719d3f3a3f547f177313da154b;p=perltidy.git

simplify
---

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() );
                 }
             }