From: Florian Ragwitz <rafl@debian.org>
Date: Wed, 16 Jun 2010 13:59:22 +0000 (+0200)
Subject: Add additional parens for older perls
X-Git-Tag: 0.9~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-EOL.git;a=commitdiff_plain;h=7ebe98c1ba971ee84213c5d8a7db897324d0c904

Add additional parens for older perls
---

diff --git a/lib/Test/EOL.pm b/lib/Test/EOL.pm
index 790681b..25628c3 100644
--- a/lib/Test/EOL.pm
+++ b/lib/Test/EOL.pm
@@ -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;