summaryrefslogtreecommitdiff
path: root/Echolot/Storage
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-11 17:42:48 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-11 17:42:48 +0000
commit12d96eb0146f7e96012bba12c13a7a12282494aa (patch)
treea9b3622ff216b374a4176cba18cfde1d788822a0 /Echolot/Storage
parent9ebf3c37510b139bb877abd0b0531c9bd1dc9624 (diff)
Use confess instead of croak
Diffstat (limited to 'Echolot/Storage')
-rw-r--r--Echolot/Storage/File.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm
index 924db0e..b00d47d 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.31 2002/07/11 17:41:07 weasel Exp $
+# $Id: File.pm,v 1.32 2002/07/11 17:42:48 weasel Exp $
#
=pod
@@ -23,7 +23,7 @@ use warnings;
use Data::Dumper;
use IO::Handle;
use English;
-use Carp qw{cluck confess croak carp};
+use Carp qw{cluck confess carp};
use Fcntl ':flock'; # import LOCK_* constants
use Fcntl ':seek'; # import LOCK_* constants
use Echolot::Tools;
@@ -172,7 +172,7 @@ sub metadata_read($) {
$self->{'METADATA'} = $METADATA;
};
$EVAL_ERROR and
- croak("Error when reading from metadata file: $EVAL_ERROR"),
+ confess("Error when reading from metadata file: $EVAL_ERROR"),
return 0;
defined($self->{'METADATA'}->{'version'}) or