Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[build] be a bit more idiomatic in gen_setting_pm.pl
Use three-arg open(), and speed don't read line by line if we don't need that.
  • Loading branch information
moritz committed Sep 4, 2009
1 parent b51d94c commit 3db3e37
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions build/gen_setting_pm.pl
Expand Up @@ -15,8 +15,9 @@

foreach my $file (@files) {
print "# From $file\n\n";
open(my $fh, "< $file") or die $!;
print join('', <$fh>);
open(my $fh, "<", $file) or die $!;
local $/;
print <$fh>;
close $fh;
}

Expand Down

0 comments on commit 3db3e37

Please sign in to comment.