diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-06-11 11:06:32 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-06-11 11:06:32 +0000 |
| commit | 40684e7dcdedb38a0ff368acad3cc36facb69cd9 (patch) | |
| tree | 77ca3afd7eaf65706d21c00959f943cc2f94a659 | |
| parent | 27dc18ccb9551109287e81f10ab868edc3f36ec1 (diff) | |
Added debug some output
| -rw-r--r-- | Echolot/Scheduler.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 8ac4983..3c4342a 100644 --- a/Echolot/Scheduler.pm +++ b/Echolot/Scheduler.pm @@ -1,7 +1,7 @@ package Echolot::Scheduler; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Scheduler.pm,v 1.2 2002/06/11 10:16:38 weasel Exp $ +# $Id: Scheduler.pm,v 1.3 2002/06/11 11:06:32 weasel Exp $ # =pod @@ -134,6 +134,7 @@ sub run($) { my $what = $self->{'tasks'}->{$name}->{'what'}; last if ($what eq 'exit'); + print "Running $name at $now\n"; &$what(); $self->schedule($name, $now + $self->{'tasks'}->{$name}->{'interval'}); |