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

[u/mdw/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];
-        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;
     }