diff options
| author | fukachan <fukachan> | 2001-08-23 13:10:34 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-08-23 13:10:34 +0000 |
| commit | 7ff359d5d76c1ade524f45f4e40ba039275a5790 (patch) | |
| tree | fa744a3472481b63b3639c374f101419ac8bab1f | |
| parent | 9923a395318fe273c721d1b4247014829ce83b14 (diff) | |
| download | fml8-7ff359d5d76c1ade524f45f4e40ba039275a5790.tar.gz fml8-7ff359d5d76c1ade524f45f4e40ba039275a5790.tar.bz2 fml8-7ff359d5d76c1ade524f45f4e40ba039275a5790.zip | |
more debug to show {header,body}_size
| -rw-r--r-- | fml/lib/Mail/Message.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 6e10d8f1..f39f2777 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Message.pm,v 1.25 2001/06/02 12:38:20 fukachan Exp $ +# $FML: Message.pm,v 1.26 2001/08/02 02:00:14 fukachan Exp $ # package Mail::Message; @@ -497,6 +497,11 @@ sub _parse # read the message (mail body) from the incoming mail my $body_size = length($InComingMessage); + if ($debug > 2) { + print STDERR " (debug) header_size: $header_size\n"; + print STDERR " (debug) body_size: $body_size\n"; + } + # result to return $result->{ header } = $header; $result->{ header_size } = $header_size; |