From 7ff359d5d76c1ade524f45f4e40ba039275a5790 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Thu, 23 Aug 2001 13:10:34 +0000
Subject: more debug to show {header,body}_size

---
 fml/lib/Mail/Message.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1