summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Ivy.pm4
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);