From 54cff7af409925a0ecfea9b9e6342fe085e59905 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 12 Jul 2005 20:40:32 +0000
Subject: [PATCH] When setting OtherFds, always make it an addition to what's
 already set

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@498 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Danga/Socket.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Danga/Socket.pm b/lib/Danga/Socket.pm
index e3663c2..2e1efd5 100644
--- a/lib/Danga/Socket.pm
+++ b/lib/Danga/Socket.pm
@@ -107,7 +107,7 @@ sub ToClose { return @ToClose; }
 ### the registered Danga::Socket objects.
 sub OtherFds {
     my $class = shift;
-    if ( @_ ) { %OtherFds = @_ }
+    if ( @_ ) { %OtherFds = (%OtherFds, @_) }
     return wantarray ? %OtherFds : \%OtherFds;
 }