diff options
| -rw-r--r-- | Ivy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |