slight syntax change
authorminima <minima>
Fri, 2 Mar 2001 23:07:59 +0000 (23:07 +0000)
committerminima <minima>
Fri, 2 Mar 2001 23:07:59 +0000 (23:07 +0000)
perl/Msg.pm

index fd6e3b17dde3d015848675ec3f033e49381af631..7af8566e09f800f56b232b471945bdd40c827581 100644 (file)
@@ -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