Fix trivial Perl goof in logparse.pl which caused
authorsimon <simon@cda61777-01e9-0310-a592-d414129be87e>
Mon, 30 Apr 2012 17:28:28 +0000 (17:28 +0000)
committersimon <simon@cda61777-01e9-0310-a592-d414129be87e>
Mon, 30 Apr 2012 17:28:28 +0000 (17:28 +0000)
SSH2_MSG_CHANNEL_FAILURE to be reported as replying to
ARRAY(0xrubbish) instead of to a message number.

git-svn-id: svn://svn.tartarus.org/sgt/putty@9472 cda61777-01e9-0310-a592-d414129be87e

contrib/logparse.pl

index 29043ba..a3d8284 100755 (executable)
@@ -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?)";
         }