From 4842bac893d6762bd75628f45ba9669c73493312 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Thu, 11 Jul 2002 17:45:59 +0000
Subject: Use cluck or confess instead of croak

---
 Echolot/Config.pm    | 6 +++---
 Echolot/Mailin.pm    | 4 ++--
 Echolot/Scheduler.pm | 6 +++---
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'Echolot')

diff --git a/Echolot/Config.pm b/Echolot/Config.pm
index b651d81..604a9ba 100644
--- a/Echolot/Config.pm
+++ b/Echolot/Config.pm
@@ -1,7 +1,7 @@
 package Echolot::Config;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Config.pm,v 1.22 2002/07/10 21:46:28 weasel Exp $
+# $Id: Config.pm,v 1.23 2002/07/11 17:45:59 weasel Exp $
 #
 
 =pod
@@ -148,13 +148,13 @@ sub init($) {
 	{
 		local $/ = undef;
 		open(CONFIGCODE, $configfile) or
-			croak("Could not open configfile '$configfile': $!");
+			confess("Could not open configfile '$configfile': $!");
 		my $config_code = <CONFIGCODE>;
 		close (CONFIGCODE);
 		($config_code) = $config_code =~ /^(.*)$/s;
 		eval ($config_code);
 		($EVAL_ERROR) and
-			croak("Evaling config code from '$configfile' returned error: $EVAL_ERROR");
+			confess("Evaling config code from '$configfile' returned error: $EVAL_ERROR");
 	}
 	
 	for my $key (keys %$DEFAULT) {
diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm
index 7ecaa9a..f845758 100644
--- a/Echolot/Mailin.pm
+++ b/Echolot/Mailin.pm
@@ -1,7 +1,7 @@
 package Echolot::Mailin;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Mailin.pm,v 1.4 2002/07/06 00:50:27 weasel Exp $
+# $Id: Mailin.pm,v 1.5 2002/07/11 17:45:59 weasel Exp $
 #
 
 =pod
@@ -99,7 +99,7 @@ sub process() {
 	Echolot::Globals::get()->{'storage'}->delay_commit();
 	for my $file (@files) {
 		$file =~ /^(.*)$/s or
-			croak("I really should match here. ('$file').");
+			confess("I really should match here. ('$file').");
 		$file = $1;
 		if (handle($mailindir.'/'.$file)) {
 			unlink($mailindir.'/'.$file);
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'});
 	};
-- 
cgit v1.2.3