diff options
author | bustico | 2006-10-05 12:00:15 +0000 |
---|---|---|
committer | bustico | 2006-10-05 12:00:15 +0000 |
commit | 9c6ae959913b5065ac793399f1d7878419f73d32 (patch) | |
tree | 63176cc47c7d6a82ec9bfd4b2efc8b4efe543fb0 /Ivy.pm | |
parent | 4cb10fc398afe3b60058da096bcda13062194d7c (diff) | |
download | ivy-perl-9c6ae959913b5065ac793399f1d7878419f73d32.zip ivy-perl-9c6ae959913b5065ac793399f1d7878419f73d32.tar.gz ivy-perl-9c6ae959913b5065ac793399f1d7878419f73d32.tar.bz2 ivy-perl-9c6ae959913b5065ac793399f1d7878419f73d32.tar.xz |
fix mainLoop method
Diffstat (limited to 'Ivy.pm')
-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); |