diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-11 23:20:54 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-11 23:20:54 +0000 |
| commit | 190c6a7947df0140b7af6d5b9bf50222b7926e0c (patch) | |
| tree | e161ad966b7098db48759d4688f6d2bcfdb370af | |
| parent | 6f2b76cd30a5b9895ef6283f4d617b46a4feb872 (diff) | |
cluck, exit is not really that clever. using confess
| -rw-r--r-- | Echolot/Storage/File.pm | 11 |
1 files 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 <peter@palfrader.org> -# $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; |