simplify

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index e78f276d11f67a60b2917a069a4c8ec115234e5d..17b7560b3d894bc73bbad939c7e3423e5c9170c8 100644 (file)
--- 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() );
                 }
             }