diff options
| author | fukachan <fukachan> | 2003-08-23 05:15:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-23 05:15:14 +0000 |
| commit | 5c554a6b447d979464eb4128d2d3f2f2239dd698 (patch) | |
| tree | aae6187122b1ac92d2c4b7964edcbf6d5c16f587 /fml | |
| parent | 4bc7b4b4ad750e3228b0ff39520c2f00557549fa (diff) | |
| download | fml8-5c554a6b447d979464eb4128d2d3f2f2239dd698.tar.gz fml8-5c554a6b447d979464eb4128d2d3f2f2239dd698.tar.bz2 fml8-5c554a6b447d979464eb4128d2d3f2f2239dd698.zip | |
use croak() not FML::Log()
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/Mail/Message/Checksum.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message/Checksum.pm b/fml/lib/Mail/Message/Checksum.pm index 5fc161db..8032f1aa 100644 --- a/fml/lib/Mail/Message/Checksum.pm +++ b/fml/lib/Mail/Message/Checksum.pm @@ -4,14 +4,13 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Checksum.pm,v 1.8 2003/07/21 10:40:06 fukachan Exp $ +# $FML: Checksum.pm,v 1.9 2003/08/23 04:35:46 fukachan Exp $ # package Mail::Message::Checksum; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; -use FML::Log qw(Log LogWarn LogError); =head1 NAME @@ -213,7 +212,7 @@ sub cksum2 $crc = ($crc & 0xffff) + ($crc >> 16); } else { - Log("ERROR: no such file $file"); + croak("ERROR: no such file $file"); } return ($crc, $total); |