nhyatt/putty-source
1
0
Fork 0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-01-10 09:58:01 +00:00
Code Issues Projects Releases Wiki Activity

Fix a Perl warning about useless use of a constant in void context.

Browse Source 
[originally from svn r9458]
This commit is contained in:
Simon Tatham 2012-04-16 18:21:31 +00:00
parent 76cdb3f523
commit 5c743effc0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/logparse.pl
View File

@ -490,7 +490,8 @@ if ($dumpchannels) {
'halfclosed'=>2, 'open'=>3, 'halfopen'=>4); 'halfclosed'=>2, 'open'=>3, 'halfopen'=>4);
for my $index (0..$#channels) { for my $index (0..$#channels) {
my $chan = $channels[$index]; my $chan = $channels[$index];
my $so = $stateorder{$chan->{'state'}} or 1000; # unknown sorts highest my $so = $stateorder{$chan->{'state'}};
$so = 1000 unless defined $so; # any state I've missed above comes last
$chan->{'index'} = sprintf "ch%d", $index; $chan->{'index'} = sprintf "ch%d", $index;
$chan->{'order'} = sprintf "%08d %08d", $so, $index; $chan->{'order'} = sprintf "%08d %08d", $so, $index;
} }