~mdw
/
sgt
/
putty
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix a Perl warning about useless use of a constant in void context.
[sgt/putty]
/
contrib
/
logparse.pl
diff --git
a/contrib/logparse.pl
b/contrib/logparse.pl
index
4d93612
..
29043ba
100755
(executable)
--- a/
contrib/logparse.pl
+++ b/
contrib/logparse.pl
@@
-490,7
+490,8
@@
if ($dumpchannels) {
'halfclosed'=>2, 'open'=>3, 'halfopen'=>4);
for my $index (0..$#channels) {
my $chan = $channels[$index];
'halfclosed'=>2, 'open'=>3, 'halfopen'=>4);
for my $index (0..$#channels) {
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->{'order'} = sprintf "%08d %08d", $so, $index;
}
$chan->{'index'} = sprintf "ch%d", $index;
$chan->{'order'} = sprintf "%08d %08d", $so, $index;
}