projects
/
catagits/Test-EOL.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
20b3840
)
Add additional parens for older perls
Florian Ragwitz [Wed, 16 Jun 2010 13:59:22 +0000 (15:59 +0200)]
lib/Test/EOL.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/Test/EOL.pm
b/lib/Test/EOL.pm
index
790681b
..
25628c3
100644
(file)
--- 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;