X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=contrib%2Flogparse.pl;h=a3d828408b62721c5b7b546545a30560693b2c5e;hb=a580c22c2419a9236466ca8ee80bc97bc9da41eb;hp=4d9361204888d91d9ba04e20cd9b316d33f919d5;hpb=76cdb3f523809d854c406a42a4f961a4cb8cc6d0;p=PuTTY.git

diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index 4d936120..a3d82840 100755
--- a/contrib/logparse.pl
+++ b/contrib/logparse.pl
@@ -414,7 +414,7 @@ my %packets = (
         my $otherdir = ($direction eq "i" ? "o" : "i");
         my $request = shift @{$chan->{'requests_' . $otherdir}};
         if (defined $request) {
-            printf " to %s", $request;
+            printf " to %s", $request->[0];
         } else {
             print " (spurious?)";
         }
@@ -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;
     }