From 052a75f58b1560335b9d150ab82aad6665470cbe Mon Sep 17 00:00:00 2001
From: damiano
Date: Mon, 26 Nov 2001 17:00:40 +0000
Subject: Correction de bug dans la méthode DESTROY, introduit lors de la
 suppression des threads (entre la version CVS 1.9 et 1.10)

---
 Ivy.pm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

(limited to 'Ivy.pm')

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)
-- 
cgit v1.1