fix comments.

9 files changed, 45 insertions, 42 deletions

diff --git a/fml/lib/IO/Adapter/AtomicFile.pm b/fml/lib/IO/Adapter/AtomicFile.pm
index 59d899b6..1ffa164a 100644
--- a/fml/lib/IO/Adapter/AtomicFile.pm
+++ b/fml/lib/IO/Adapter/AtomicFile.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: AtomicFile.pm,v 1.8 2003/02/01 06:08:39 fukachan Exp $
+# $FML: AtomicFile.pm,v 1.9 2003/08/23 04:35:43 fukachan Exp $
 #
 
 package IO::Adapter::AtomicFile;
@@ -215,7 +215,7 @@ C<IO::Adapter::AtomicFile::rw_open>.
 =cut
 
 
-# Descriptions: copy file, which ensures atomic operation
+# Descriptions: copy file, which ensures atomic operation.
 #    Arguments: OBJ($self) STR($src) STR($dst)
 # Side Effects: $dst's file mode becomes the same as $src
 # Return Value: NUM
@@ -233,6 +233,7 @@ sub copy
 	$wh->close;
 	$rh->close;
 
+	# XXX-TODO: chmod too late 
 	chmod $mode, $dst;
     }
     else {
@@ -253,7 +254,7 @@ state.
 =cut
 
 
-# Descriptions: return error message
+# Descriptions: return error message.
 #    Arguments: OJB($self)
 #               XXX $self is blessed file handle.
 # Side Effects: none
@@ -266,7 +267,7 @@ sub error
 }
 
 
-# Descriptions: reset the previous work
+# Descriptions: reset the previous work.
 #    Arguments: OBJ($self)
 #               XXX $self is blessed file handle.
 # Side Effects: clean up the previous work ;-)
@@ -304,7 +305,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/NIS.pm b/fml/lib/IO/Adapter/NIS.pm
index 19b80c63..95ce1bf7 100644
--- a/fml/lib/IO/Adapter/NIS.pm
+++ b/fml/lib/IO/Adapter/NIS.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: NIS.pm,v 1.21 2003/08/23 04:35:44 fukachan Exp $
+# $FML: NIS.pm,v 1.22 2003/08/23 15:33:16 fukachan Exp $
 #
 
 package IO::Adapter::NIS;
@@ -51,15 +51,16 @@ Configure $obj for array IO emulation.
 =cut
 
 
-# Descriptions: initialize NIS specific configuration
+# Descriptions: initialize NIS specific configuration.
 #    Arguments: OBJ($self) HASH_REF($me)
 # Side Effects: none
 # Return Value: ARRAY_REF
 sub configure
 {
     my ($self, $me) = @_;
-    my ($type) = ref($self) || $self;
+    my ($type)      = ref($self) || $self;
 
+    # XXX-TODO: UNIX only.
     # XXX-TODO: we call "ypmatch" but should use full-path if could.
     # emulate an array on memory
     my $key        = $me->{_name};
@@ -83,7 +84,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/UnixGroup.pm b/fml/lib/IO/Adapter/UnixGroup.pm
index 4184e7ac..e5100833 100644
--- a/fml/lib/IO/Adapter/UnixGroup.pm
+++ b/fml/lib/IO/Adapter/UnixGroup.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: UnixGroup.pm,v 1.19 2003/08/23 04:35:44 fukachan Exp $
+# $FML: UnixGroup.pm,v 1.20 2003/08/23 15:33:16 fukachan Exp $
 #
 
 package IO::Adapter::UnixGroup;
@@ -51,14 +51,14 @@ Configure object for array IO operation.
 =cut
 
 
-# Descriptions: initialize /etc/group specific configuration
+# Descriptions: initialize /etc/group specific configuration.
 #    Arguments: OBJ($self) HASH_REF($me)
 # Side Effects: none
 # Return Value: ARRAY_REF
 sub configure
 {
     my ($self, $me) = @_;
-    my ($type) = ref($self) || $self;
+    my ($type)      = ref($self) || $self;
 
     # emulate an array on memory
     my (@x)        = getgrnam( $me->{_name} );
@@ -81,7 +81,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm
index 928edd33..6773f0d3 100644
--- a/fml/lib/Mail/Bounce/DSN.pm
+++ b/fml/lib/Mail/Bounce/DSN.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   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.21 2003/01/11 15:14:24 fukachan Exp $
+# $FML: DSN.pm,v 1.22 2003/01/26 03:23:09 fukachan Exp $
 #
 
 
@@ -79,7 +79,7 @@ See RFC1894 on DSN (Delivery Status Notification) definition.
 =cut
 
 
-# Descriptions: analyze DSN
+# Descriptions: analyze DSN format message.
 #    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
 # Side Effects: update $result
 # Return Value: none
@@ -87,7 +87,7 @@ sub analyze
 {
     my ($self, $msg, $result) = @_;
     my $m = $msg->whole_message_body_head;
-    $m = $m->find( { data_type => 'message/delivery-status' } );
+    $m    = $m->find( { data_type => 'message/delivery-status' } );
 
     if (defined $m) {
 	# data in the part
@@ -171,7 +171,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Bounce/FixBrokenAddress.pm b/fml/lib/Mail/Bounce/FixBrokenAddress.pm
index 0bd69e7d..feecca21 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.9 2002/12/20 03:49:15 fukachan Exp $
+# $FML: FixBrokenAddress.pm,v 1.10 2004/01/02 14:42:47 fukachan Exp $
 #
 
 
@@ -36,7 +36,7 @@ See C<Mail::Bounce> for more details.
 =cut
 
 
-# Descriptions: speculate correct address
+# Descriptions: speculate correct address.
 #    Arguments: STR($hint) STR($addr)
 # Side Effects: speculate $addr
 # Return Value: STR($addr)
diff --git a/fml/lib/Mail/Bounce/Language/Japanese.pm b/fml/lib/Mail/Bounce/Language/Japanese.pm
index fb3c0c0a..c0839a63 100644
--- a/fml/lib/Mail/Bounce/Language/Japanese.pm
+++ b/fml/lib/Mail/Bounce/Language/Japanese.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   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.8 2003/08/06 11:20:06 fukachan Exp $
+# $FML: Japanese.pm,v 1.9 2003/08/13 13:43:46 fukachan Exp $
 #
 
 #
@@ -79,7 +79,7 @@ See C<Mail::Bounce> for more details.
 =cut
 
 
-# Descriptions: trap Japanese specific error address
+# Descriptions: trap Japanese specific error address.
 #    Arguments: OBJ($self) HASH_REF($args)
 # Side Effects: update $args->{result}
 # Return Value: none
@@ -91,6 +91,7 @@ sub _japanese_address_match
     my $rbuf   = $args->{ buf };
     my $buf    = $$rbuf;
 
+    # XXX-TODO: use Mail::Message::Encode.
     use Jcode;
     &Jcode::convert(\$buf, 'euc');
 
@@ -132,7 +133,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Bounce/SimpleMatch.pm b/fml/lib/Mail/Bounce/SimpleMatch.pm
index 9b189c89..f5e16e2c 100644
--- a/fml/lib/Mail/Bounce/SimpleMatch.pm
+++ b/fml/lib/Mail/Bounce/SimpleMatch.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   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.38 2003/04/29 03:11:01 fukachan Exp $
+# $FML: SimpleMatch.pm,v 1.39 2003/05/04 07:57:13 fukachan Exp $
 #
 
 
@@ -179,7 +179,7 @@ my $reason_trap_regexp = {
 };
 
 
-# Descriptions: analyze irregular pattern
+# Descriptions: analyze irregular pattern.
 #    Arguments: OBJ($self) OBJ($msg) HASH_REF($result)
 # Side Effects: update $result
 # Return Value: none
@@ -331,7 +331,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Delivery.pm b/fml/lib/Mail/Delivery.pm
index f38824a7..3458c3a9 100644
--- a/fml/lib/Mail/Delivery.pm
+++ b/fml/lib/Mail/Delivery.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Delivery.pm,v 1.9 2003/02/01 13:47:35 fukachan Exp $
+# $FML: Delivery.pm,v 1.10 2003/02/11 09:48:18 fukachan Exp $
 #
 
 package Mail::Delivery;
@@ -92,7 +92,7 @@ constructor. The request is forwarded to SUPER class.
 #               load module suitable for specified protocol and
 #               return object such as Mail::Delivery::ESMTP.
 #    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: load module
+# Side Effects: load module, croak() if unknown protocol.
 # Return Value: OBJ
 sub new
 {
@@ -139,7 +139,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/Mail/Delivery/ErrorStatus.pm b/fml/lib/Mail/Delivery/ErrorStatus.pm
index 235791ad..669d2d42 100644
--- a/fml/lib/Mail/Delivery/ErrorStatus.pm
+++ b/fml/lib/Mail/Delivery/ErrorStatus.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: ErrorStatus.pm,v 1.6 2003/08/23 04:35:45 fukachan Exp $
+# $FML: ErrorStatus.pm,v 1.7 2003/08/23 15:33:17 fukachan Exp $
 #
 
 package Mail::Delivery::ErrorStatus;
@@ -58,7 +58,7 @@ return $message which is saved by C<error_set($msg)>.
 =cut
 
 
-# Descriptions: set the error message
+# Descriptions: set the error message.
 #    Arguments: OBJ($self) STR($mesg)
 # Side Effects: update OBJ
 # Return Value: STR
@@ -69,7 +69,7 @@ sub error_set
 }
 
 
-# Descriptions: get the error message
+# Descriptions: get the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -80,7 +80,7 @@ sub error
 }
 
 
-# Descriptions: get the error message
+# Descriptions: get the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -91,7 +91,7 @@ sub errstr
 }
 
 
-# Descriptions: clear the error message
+# Descriptions: clear the error message.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: STR
@@ -115,7 +115,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.