mirror of
https://git.tartarus.org/simon/putty.git
synced 2025-07-02 12:02:47 -05:00
Replace all uses 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 in any of these contexts! Fortunately, in this project it only comes up in non-critical 'contrib' scripts.
This commit is contained in:
@ -19,7 +19,7 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
while (<>) {
|
||||
while (<<>>) {
|
||||
if (/^ ([0-9a-f]{8}) ((?:[0-9a-f]{2} ){0,15}(?:[0-9a-f]{2}))/) {
|
||||
my $addr = $1;
|
||||
my $hex = $2;
|
||||
@ -36,7 +36,7 @@ while (<>) {
|
||||
if ($old_line ne $new_line and
|
||||
$old_line eq substr($new_line, 0, length($old_line))) {
|
||||
print "$new_line\n";
|
||||
<>; # eat the subsequent wrapped line
|
||||
<<>>; # eat the subsequent wrapped line
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
Reference in New Issue
Block a user