fix mainLoop method

1 files changed, 2 insertions, 2 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 34caf57..143dda3 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -103,7 +103,7 @@ sub sendAppNameMsgs;	# envoie une liste de messages precedes
 sub sendDirectMsgs; # envoie une liste de messages directs a une appli
 sub sendDieTo;	 # envoie un <<kill>>  a une appli
 sub ping ($$\&);		  # teste qu'une appli soit encore vivante
-sub mainLoop ($);        # la mainloop locale (sans tk)
+sub mainLoop (;$);        # la mainloop locale (sans tk)
 sub stop ();		# methode de classe : on delete les bus, mais
 			# on reste dans la mainloop
 sub exit ();		# methode de classe : on delete tous les
@@ -1108,7 +1108,7 @@ sub ping ($$\&)
 } # end ping
 
 ###############   METHODE     MAINLOOP
-sub mainLoop ($)
+sub mainLoop (;$)
 {
   my  $self = ref($_[0]) eq __PACKAGE__  ? shift : $globalIvy;
   my ($fd, @selRes, @allDesc);