Fix trivial Perl goof in logparse.pl which caused

[u/mdw/putty] / contrib / logparse.pl

diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index 29043ba..a3d8284 100755 (executable)
--- 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?)";
         }