summaryrefslogtreecommitdiff
path: root/Ivy.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Ivy.pm')
-rw-r--r--Ivy.pm16
1 files changed, 7 insertions, 9 deletions
diff --git a/Ivy.pm b/Ivy.pm
index ccfab4d..0e1d37e 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -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)