[svn:qpsmtpd] rev 498 - trunk/lib/Danga

[email protected] 12 Jul 2005 20:40:33 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Tue Jul 12 13:40:32 2005
New Revision: 498

Modified:
   trunk/lib/Danga/Socket.pm
Log:
When setting OtherFds, always make it an addition to what's already set


Modified: trunk/lib/Danga/Socket.pm
==============================================================================
--- trunk/lib/Danga/Socket.pm	(original)
+++ trunk/lib/Danga/Socket.pm	Tue Jul 12 13:40:32 2005
@@ -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;
 }