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
This commit is contained in:
parent
e407e8b470
commit
54cff7af40
@ -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;
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user