Add additional parens for older perls
Florian Ragwitz [Wed, 16 Jun 2010 13:59:22 +0000 (15:59 +0200)]
lib/Test/EOL.pm

index 790681b..25628c3 100644 (file)
@@ -145,7 +145,7 @@ sub _is_perl_script {
     my $file = shift;
     return 1 if $file =~ /\.pl$/i;
     return 1 if $file =~ /\.t$/;
-    open my $fh, $file or return;
+    open (my $fh, $file) or return;
     my $first = <$fh>;
     return 1 if defined $first && ($first =~ $PERL_PATTERN);
     return;