[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;
}