diff options
| author | fukachan <fukachan> | 2004-01-24 09:00:53 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-24 09:00:53 +0000 |
| commit | 22441065efdc239bc5533152f7fc2a61623916c7 (patch) | |
| tree | e5e7095ab3ddb5f8e9a621925265937d44a825c6 /fml/lib/IO/Adapter/AtomicFile.pm | |
| parent | a5f29a5e10c33cf0c1cf8a9c66ef2a9c46b8c64a (diff) | |
| download | fml8-22441065efdc239bc5533152f7fc2a61623916c7.tar.gz fml8-22441065efdc239bc5533152f7fc2a61623916c7.tar.bz2 fml8-22441065efdc239bc5533152f7fc2a61623916c7.zip | |
fix comments.
Diffstat (limited to 'fml/lib/IO/Adapter/AtomicFile.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/AtomicFile.pm | 13 |
1 files changed, 7 insertions, 6 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. |