From 8cf5b21b8c40d97b30a0f605247bc65210df734f Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 2 Mar 2001 23:07:59 +0000 Subject: [PATCH] slight syntax change --- perl/Msg.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index fd6e3b17..7af8566e 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -119,7 +119,7 @@ sub _send { my ($conn, $flush) = @_; my $sock = $conn->{sock}; return unless defined($sock); - my ($rq) = $conn->{outqueue}; + my $rq = $conn->{outqueue}; # If $flush is set, set the socket to blocking, and send all # messages in the queue - return only if there's an error -- 2.43.0