fix comments.

3 files changed, 18 insertions, 16 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.