diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-11 17:45:59 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-11 17:45:59 +0000 |
| commit | 4842bac893d6762bd75628f45ba9669c73493312 (patch) | |
| tree | 5d47b4431461d2fe032933bd23dd866bc6b505f0 /Echolot/Scheduler.pm | |
| parent | 12d96eb0146f7e96012bba12c13a7a12282494aa (diff) | |
Use cluck or confess instead of croak
Diffstat (limited to 'Echolot/Scheduler.pm')
| -rw-r--r-- | Echolot/Scheduler.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Scheduler.pm b/Echolot/Scheduler.pm index 99730e1..8bf700a 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.7 2002/07/02 13:57:09 weasel Exp $ +# $Id: Scheduler.pm,v 1.8 2002/07/11 17:45:59 weasel Exp $ # =pod @@ -114,7 +114,7 @@ sub run($) { my ($self) = @_; (defined $self->{'schedule'}->[0]) or - croak("Scheduler is empty"), + cluck("Scheduler is empty"), return 0; while(1) { @@ -145,7 +145,7 @@ sub run($) { ($self->{'tasks'}->{$name}->{'interval'} > 0); (defined $self->{'schedule'}->[0]) or - croak("Scheduler is empty"), + cluck("Scheduler is empty"), return 0; } while ($now >= $self->{'schedule'}->[0]->{'start'}); }; |