From 190c6a7947df0140b7af6d5b9bf50222b7926e0c Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Thu, 11 Jul 2002 23:20:54 +0000 Subject: cluck, exit is not really that clever. using confess --- Echolot/Storage/File.pm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index b00d47d..85668c5 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader -# $Id: File.pm,v 1.32 2002/07/11 17:42:48 weasel Exp $ +# $Id: File.pm,v 1.33 2002/07/11 23:20:54 weasel Exp $ # =pod @@ -67,14 +67,11 @@ sub new { $self->delay_commit(); $self->metadata_open() or - cluck ('Opening Metadata failed. Exiting'), - exit 1; + confess ('Opening Metadata failed. Exiting'); $self->metadata_read() or - cluck ('Reading Metadata from Storage failed. Exiting'), - exit 1; + confess ('Reading Metadata from Storage failed. Exiting'); $self->pingdata_open() or - cluck ('Opening Ping files failed. Exiting'), - exit 1; + confess ('Opening Ping files failed. Exiting'); $self->enable_commit(); return $self; -- cgit v1.2.3