zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-20 15:41:30 -07:00
Code Issues Packages Projects Releases Wiki Activity

benchmark.pl: replace use of Perl <> with <<>>.

Browse Source 
I've only just found out that it has the effect of treating the argv
words not as plain filenames, but as arguments to Perl default 'open',
i.e. if they end in | then the text before that is treated as a
command. That's not what was intended!
This commit is contained in:
Simon Tatham
2019-01-25 20:27:49 +00:00
parent ced51ada36
commit d7c873313e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
benchmark.pl
View File

@ -9,7 +9,7 @@ my @presets = ();
my %presets = (); my %presets = ();
my $maxval = 0; my $maxval = 0;
while (<>) { while (<<>>) {
chomp; chomp;
if (/^(.*)(#.*): ([\d\.]+)$/) { if (/^(.*)(#.*): ([\d\.]+)$/) {
push @presets, $1 unless defined $presets{$1}; push @presets, $1 unless defined $presets{$1};