… | … | ||
---|---|---|---|
88 | sub one_event { | 88 | sub one_event { |
89 | $mainloop->iteration (1); | 89 | $mainloop->iteration (1); |
90 | } | 90 | } |
91 | 91 | ||
92 | sub loop { | 92 | sub loop { |
93 | $mainloop->run; | 93 | $mainloop->iteration (1) while 1; # hackish, but w ehave no mainloop |
94 | } | 94 | } |
95 | 95 | ||
96 | 1; | 96 | 1; |
97 | 97 | ||
98 | =head1 SEE ALSO | 98 | =head1 SEE ALSO |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |