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/Config.pm | |
| parent | 12d96eb0146f7e96012bba12c13a7a12282494aa (diff) | |
Use cluck or confess instead of croak
Diffstat (limited to 'Echolot/Config.pm')
| -rw-r--r-- | Echolot/Config.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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) { |