overhaul: fix comments and messages. validate initial value.

11 files changed, 26 insertions, 26 deletions

diff --git a/fml/lib/Mail/Bounce.pm b/fml/lib/Mail/Bounce.pm
index 25420f9d..3fba398f 100644
--- a/fml/lib/Mail/Bounce.pm
+++ b/fml/lib/Mail/Bounce.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: Bounce.pm,v 1.26 2003/08/23 04:35:44 fukachan Exp $
+# $FML: Bounce.pm,v 1.27 2004/01/24 09:03:56 fukachan Exp $
 #
 
 package Mail::Bounce;
@@ -16,7 +16,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce - analyze error messages
+Mail::Bounce - analyze error message.
 
 =head1 SYNOPSIS
 
@@ -86,7 +86,7 @@ returned C<$result> provides the following information:
 
 =head2 new()
 
-standard new() method.
+constructor.
 
 =cut
 
diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm
index 6773f0d3..474444d7 100644
--- a/fml/lib/Mail/Bounce/DSN.pm
+++ b/fml/lib/Mail/Bounce/DSN.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: DSN.pm,v 1.22 2003/01/26 03:23:09 fukachan Exp $
+# $FML: DSN.pm,v 1.23 2004/01/24 09:00:54 fukachan Exp $
 #
 
 
@@ -21,7 +21,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce::DSN - DSN error message format parser
+Mail::Bounce::DSN - DSN error message format parser.
 
 =head1 SYNOPSIS
 
@@ -113,7 +113,7 @@ sub analyze
 }
 
 
-# Descriptions: DSN parser
+# Descriptions: DSN parser.
 #               [DSN Example]
 #               Final-Recipient: rfc822; rudo@nuinui.net
 #               Action: failed
@@ -121,7 +121,7 @@ sub analyze
 #               Diagnostic-Code: X-Postfix; connect to mx.nuinui.net[10.1.1.1]:
 #                    Connection refused
 #    Arguments: OBJ($self) STR($buf) HASH_REF($result)
-# Side Effects: update $result
+# Side Effects: update $result.
 # Return Value: none
 sub _parse_dsn_format
 {
diff --git a/fml/lib/Mail/Bounce/Exim.pm b/fml/lib/Mail/Bounce/Exim.pm
index 813a6cf6..d7a35b55 100644
--- a/fml/lib/Mail/Bounce/Exim.pm
+++ b/fml/lib/Mail/Bounce/Exim.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: Exim.pm,v 1.11 2004/01/02 14:42:47 fukachan Exp $
+# $FML: Exim.pm,v 1.12 2004/01/24 09:03:57 fukachan Exp $
 #
 
 
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-Mail::Bounce::Exim - Exim error message format parser
+Mail::Bounce::Exim - Exim error message format parser.
 
 =head1 SYNOPSIS
 
@@ -58,7 +58,7 @@ sub analyze
 {
     my ($self, $msg, $result) = @_;
     my $m    = $msg->whole_message_header();
-    my $addr = $m->get('X-Failed-Recipients');
+    my $addr = $m->get('X-Failed-Recipients') || '';
 
     # set up return buffer if $addr is found.
     # XXX-TODO: we should use $self->address_clean_up() ?
diff --git a/fml/lib/Mail/Bounce/FixBrokenAddress.pm b/fml/lib/Mail/Bounce/FixBrokenAddress.pm
index feecca21..82b977a1 100644
--- a/fml/lib/Mail/Bounce/FixBrokenAddress.pm
+++ b/fml/lib/Mail/Bounce/FixBrokenAddress.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: FixBrokenAddress.pm,v 1.10 2004/01/02 14:42:47 fukachan Exp $
+# $FML: FixBrokenAddress.pm,v 1.11 2004/01/24 09:00:54 fukachan Exp $
 #
 
 
@@ -21,7 +21,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce::FixBrokenAddress - handle irregular error message
+Mail::Bounce::FixBrokenAddress - handle irregular error message.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/Freeserve.pm b/fml/lib/Mail/Bounce/Freeserve.pm
index cc2e19fd..6d74be61 100644
--- a/fml/lib/Mail/Bounce/Freeserve.pm
+++ b/fml/lib/Mail/Bounce/Freeserve.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: Freeserve.pm,v 1.3 2003/08/06 14:13:41 tmu Exp $
+# $FML: Freeserve.pm,v 1.4 2003/10/15 01:03:39 fukachan Exp $
 #
 
 #
@@ -19,7 +19,7 @@ use Carp;
 
 =head1 NAME
 
-Mail::Bounce::Freeserve - Freeserve error message format parser
+Mail::Bounce::Freeserve - Freeserve error message format parser.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/GOO.pm b/fml/lib/Mail/Bounce/GOO.pm
index c2c846d9..66ca51b1 100644
--- a/fml/lib/Mail/Bounce/GOO.pm
+++ b/fml/lib/Mail/Bounce/GOO.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: GOO.pm,v 1.10 2004/01/02 14:42:47 fukachan Exp $
+# $FML: GOO.pm,v 1.11 2004/01/24 09:03:57 fukachan Exp $
 #
 
 
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-Mail::Bounce::GOO - GOO error message format parser
+Mail::Bounce::GOO - GOO error message format parser.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/Language/Japanese.pm b/fml/lib/Mail/Bounce/Language/Japanese.pm
index c0839a63..03730ac3 100644
--- a/fml/lib/Mail/Bounce/Language/Japanese.pm
+++ b/fml/lib/Mail/Bounce/Language/Japanese.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: Japanese.pm,v 1.9 2003/08/13 13:43:46 fukachan Exp $
+# $FML: Japanese.pm,v 1.10 2004/01/24 09:00:55 fukachan Exp $
 #
 
 #
@@ -24,7 +24,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce::Language::Japanese - Japanese dependent error message parser
+Mail::Bounce::Language::Japanese - Japanese dependent error message parser.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/Postfix19991231.pm b/fml/lib/Mail/Bounce/Postfix19991231.pm
index 28c6e4e3..e7d7620a 100644
--- a/fml/lib/Mail/Bounce/Postfix19991231.pm
+++ b/fml/lib/Mail/Bounce/Postfix19991231.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: Postfix19991231.pm,v 1.22 2003/01/11 15:14:24 fukachan Exp $
+# $FML: Postfix19991231.pm,v 1.23 2004/01/24 09:03:57 fukachan Exp $
 #
 
 
@@ -20,7 +20,7 @@ my $debug = 0;
 
 =head1 NAME
 
-Mail::Bounce::Postfix19991231 - Postfix-19991231 error message format parser
+Mail::Bounce::Postfix19991231 - Postfix-19991231 error message format parser.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/Qmail.pm b/fml/lib/Mail/Bounce/Qmail.pm
index afb0de22..8058ebcd 100644
--- a/fml/lib/Mail/Bounce/Qmail.pm
+++ b/fml/lib/Mail/Bounce/Qmail.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: Qmail.pm,v 1.9 2003/01/07 08:38:35 fukachan Exp $
+# $FML: Qmail.pm,v 1.10 2004/01/24 09:03:57 fukachan Exp $
 #
 
 
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-Mail::Bounce::Qmail - Qmail error message format parser
+Mail::Bounce::Qmail - Qmail error message format parser.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm
index 012647ae..13278130 100644
--- a/fml/lib/Mail/Bounce/SimpleMatch.pm
+++ b/fml/lib/Mail/Bounce/SimpleMatch.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: SimpleMatch.pm,v 1.40 2004/01/24 09:00:54 fukachan Exp $
+# $FML: SimpleMatch.pm,v 1.41 2004/06/02 12:00:00 tmu Exp $
 #
 
 
@@ -22,7 +22,7 @@ use Mail::Bounce::Language::Japanese;
 
 =head1 NAME
 
-Mail::Bounce::SimpleMatch - simple state machine to parse error messages
+Mail::Bounce::SimpleMatch - simple state machine to parse error messages.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/Mail/Bounce/Smtpfeed.pm b/fml/lib/Mail/Bounce/Smtpfeed.pm
index 740c9d96..bdf20097 100644
--- a/fml/lib/Mail/Bounce/Smtpfeed.pm
+++ b/fml/lib/Mail/Bounce/Smtpfeed.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: Smtpfeed.pm,v 1.8 2004/01/02 14:42:47 fukachan Exp $
+# $FML: Smtpfeed.pm,v 1.9 2004/01/24 09:03:57 fukachan Exp $
 #
 
 
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-Mail::Bounce::Smtpfeed - Smtpfeed error message format parser
+Mail::Bounce::Smtpfeed - Smtpfeed error message format parser.
 
 =head1 SYNOPSIS