From 40684e7dcdedb38a0ff368acad3cc36facb69cd9 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 11 Jun 2002 11:06:32 +0000 Subject: Added debug some output --- Echolot/Scheduler.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Echolot') 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 -# $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'}); -- cgit v1.2.3