From 8cf5b21b8c40d97b30a0f605247bc65210df734f Mon Sep 17 00:00:00 2001
From: minima <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