Fix trivial Perl goof in logparse.pl which caused

[PuTTY.git] / contrib / logparse.pl

diff --git a/contrib/logparse.pl b/contrib/logparse.pl
index 29043baee05800ce3cf6a473b4b790223574e89f..a3d828408b62721c5b7b546545a30560693b2c5e 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?)";
         }