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:
Matt Sergeant 2005-07-12 20:40:32 +00:00
parent e407e8b470
commit 54cff7af40

View File

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