shithub: puzzles

Download patch

ref: d7c873313e4e80f928377b5be8c6602b22154324
parent: ced51ada363d895eee796dd03923042f97f95321
author: Simon Tatham <[email protected]>
date: Fri Jan 25 15:27:49 EST 2019

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!

--- a/benchmark.pl

+++ b/benchmark.pl

@@ -9,7 +9,7 @@

 my %presets = ();

 my $maxval = 0;

-while (<>) {

+while (<<>>) {

     chomp;

     if (/^(.*)(#.*): ([\d\.]+)$/) {

         push @presets, $1 unless defined $presets{$1};