summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-06-11 11:06:32 +0000
committerPeter Palfrader <peter@palfrader.org>2002-06-11 11:06:32 +0000
commit40684e7dcdedb38a0ff368acad3cc36facb69cd9 (patch)
tree77ca3afd7eaf65706d21c00959f943cc2f94a659
parent27dc18ccb9551109287e81f10ab868edc3f36ec1 (diff)
Added debug some output
-rw-r--r--Echolot/Scheduler.pm3
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'});