diff options
| -rw-r--r-- | Ivy.pm | 16 |
1 files changed, 7 insertions, 9 deletions
@@ -544,15 +544,13 @@ sub DESTROY ($) # pour toutes les connections foreach my $fd (values %{$self->[sockList]}) { - foreach my $fd (values %{$self->[sockList]}) { -# send ($fd, sprintf (MSG_FMT, BYE, 0, ""), 0) -# or $self->_removeFileDescriptor ($fd); - # the 2 previous lines seems to works with other ivy-perl applis - # but DONOT work with ivy-c api. - # the 2 next lines works. This has to been validated! CM 21/12/2000 - send ($fd, sprintf (MSG_FMT, BYE, 0, ""), 0); - $self->_removeFileDescriptor ($fd); - } + # send ($fd, sprintf (MSG_FMT, BYE, 0, ""), 0) + # or $self->_removeFileDescriptor ($fd); + # the 2 previous lines seems to works with other ivy-perl applis + # but DONOT work with ivy-c api. + # the 2 next lines works. This has to been validated! CM 21/12/2000 + send ($fd, sprintf (MSG_FMT, BYE, 0, ""), 0); + $self->_removeFileDescriptor ($fd); } # on clot la socket de signalisation (UDP) |