From: Simon Tatham <anakin@pobox.com>
Date: Fri, 25 Jan 2019 20:27:49 +0000 (+0000)
Subject: benchmark.pl: replace use of Perl <> with <<>>.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=d7c873313e4e80f928377b5be8c6602b22154324;p=sgt-puzzles.git

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

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!
---

diff --git a/benchmark.pl b/benchmark.pl
index 9876385..7ac48ab 100755
--- a/benchmark.pl
+++ b/benchmark.pl
@@ -9,7 +9,7 @@ my @presets = ();
 my %presets = ();
 my $maxval = 0;
 
-while (<>) {
+while (<<>>) {
     chomp;
     if (/^(.*)(#.*): ([\d\.]+)$/) {
         push @presets, $1 unless defined $presets{$1};