From 8a202ff950fd5e924d657b561686992a40f05efe Mon Sep 17 00:00:00 2001
From: simon <simon@cda61777-01e9-0310-a592-d414129be87e>
Date: Mon, 16 Apr 2012 18:21:31 +0000
Subject: [PATCH 1/1] Fix a Perl warning about useless use of a constant in
 void context.

git-svn-id: svn://svn.tartarus.org/sgt/putty@9458 cda61777-01e9-0310-a592-d414129be87e
---
 contrib/logparse.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index 4d936120..29043bae 100755
--- 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;
     }
-- 
2.11.0