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