mirror of
https://git.tartarus.org/simon/putty.git
synced 2025-07-01 19:42:48 -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:
@ -1032,7 +1032,7 @@ my ($direction, $seq, $ourseq, $type, $data, $recording);
|
||||
my %ourseqs = ('i'=>0, 'o'=>0);
|
||||
|
||||
$recording = 0;
|
||||
while (<>) {
|
||||
while (<<>>) {
|
||||
if ($recording) {
|
||||
if (/^ [0-9a-fA-F]{8} ((?:[0-9a-fA-F]{2} )*[0-9a-fA-F]{2})/) {
|
||||
push @$data, map { $_ eq "XX" ? -1 : hex $_ } split / /, $1;
|
||||
|
Reference in New Issue
Block a user