Hi there,

I'm having a bit of trouble with Alarm timers in Perl POE, I have a program that does a couple of things periodically

• Looks for alerts reported by a sub every 2 seconds
• rechecks a list of mounts. every 5 seconds

However my alarm timers appear to be stomping on one another. The first loop around the wheel they both run they work fine the alert alarm happens at 2, then 4 seconds. Then the Mount alarm triggers at 5 seconds, then they both just start triggering every 2 seconds. I can see I must be stomping on the mounts alarm with the alerts alarm assignment, and I've tried a lot of things like naming the alias different things, naming "next_alarm_time" different things between the subs, naming the subs "tick" and "tock" but nothing seems to work. Any suggestions?

#!/usr/bin/perl

use warnings;
use strict;
use POE qw(Wheel::Run Filter::Reference Wheel::FollowTail);


POE::Session->create(
  inline_states => {
    _start => sub {
      $_[KERNEL]->alias_set('MountWatchdog');
      $_[HEAP]->{next_alarm_time} = int(time()) + 5;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
    tick => sub {
      my $key;
      my $name;

      print "Mount tick at ", time(), "\n";

      $_[HEAP]->{next_alarm_time} = $_[HEAP]->{next_alarm_time} + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
  },
);

POE::Session->create(
  inline_states => {
    _start => sub {
      $_[KERNEL]->alias_set('AlertWatchdog');
      $_[HEAP]->{next_alarm_time} = int(time()) + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
    tick => sub {
      my $key;
      my $name;

      print "Alert tick at ", time(), "\n";

      $_[HEAP]->{next_alarm_time} = $_[HEAP]->{next_alarm_time} + 2;
      $_[KERNEL]->alarm(tick => $_[HEAP]->{next_alarm_time});
    },
  },
);

# Start our POE Kernel.
$poe_kernel->run();
exit 0;
[download]