From 5c743effc0934ed841e68cdec60f96f3337889c1 Mon Sep 17 00:00:00 2001 From: Simon Tatham Date: Mon, 16 Apr 2012 18:21:31 +0000 Subject: [PATCH] Fix a Perl warning about useless use of a constant in void context. [originally from svn r9458] --- contrib/logparse.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/logparse.pl b/contrib/logparse.pl index 4d936120..29043bae 100755 --- a/contrib/logparse.pl +++ b/contrib/logparse.pl @@ -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; } -- 2.45.2