Correction de bug dans la méthode DESTROY, introduit lors de

la suppression des threads (entre la version CVS 1.9 et 1.10)

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)