projects
/
u
/
mdw
/
putty
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
If pterm's execvp fails when given the whole argument list after -e,
[u/mdw/putty]
/
contrib
/
logparse.pl
diff --git
a/contrib/logparse.pl
b/contrib/logparse.pl
index
4d93612
..
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) {
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?)";
}
} else {
print " (spurious?)";
}
@@
-490,7
+490,8
@@
if ($dumpchannels) {
'halfclosed'=>2, 'open'=>3, 'halfopen'=>4);
for my $index (0..$#channels) {
my $chan = $channels[$index];
'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;
}
$chan->{'index'} = sprintf "ch%d", $index;
$chan->{'order'} = sprintf "%08d %08d", $so, $index;
}