summaryrefslogtreecommitdiff
path: root/fml/lib/FML/File
diff options
context:
space:
mode:
authorfukachan <fukachan>2005-05-27 03:03:31 +0000
committerfukachan <fukachan>2005-05-27 03:03:31 +0000
commite6fc837dba963f236db29e3e38d62f215980d428 (patch)
tree33f8f9ab40c5862ddaa9e3711edaa8218026ce8b /fml/lib/FML/File
parent1059e0cd170476595b06d3522d3a7915ae86e3be (diff)
downloadfml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.gz
fml8-e6fc837dba963f236db29e3e38d62f215980d428.tar.bz2
fml8-e6fc837dba963f236db29e3e38d62f215980d428.zip
fix comments (FNF)
Diffstat (limited to 'fml/lib/FML/File')
-rw-r--r--fml/lib/FML/File/Rotate.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/fml/lib/FML/File/Rotate.pm b/fml/lib/FML/File/Rotate.pm
index 883dda95..7b6ba610 100644
--- a/fml/lib/FML/File/Rotate.pm
+++ b/fml/lib/FML/File/Rotate.pm
@@ -1,10 +1,10 @@
#-*- perl -*-
#
-# Copyright (C) 2004 Ken'ichi Fukamachi
+# Copyright (C) 2004,2005 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: Rotate.pm,v 1.4 2004/07/23 12:39:17 fukachan Exp $
+# $FML: Rotate.pm,v 1.5 2004/07/23 15:59:05 fukachan Exp $
#
package FML::File::Rotate;
@@ -41,9 +41,9 @@ C<rotation> renames and rearranges files like this:
mv file.0 file.1
mv file file.0
-In old age, shell script does this but
+In old age, a shell script does this but
in modern unix,
-some programs such as /usr/bin/newsyslog (MIT athena project) do.
+some programs such as /usr/bin/newsyslog (MIT athena project) do it.
=head1 METHODS
@@ -71,19 +71,19 @@ sub new
=head2 set_max_size($size)
-set max_size.
+set the maximum size.
=head2 get_max_size()
-get max_size.
+get the maximum size.
=head2 set_num_backlog($num)
-set number of backlog files.
+set the number of backlog files.
=head2 get_num_backlog()
-get number of backlog files.
+get the number of backlog files.
=cut
@@ -151,7 +151,7 @@ sub get_num_backlog
=head2 is_time_to_rotate()
C<stat()> the file correspoinding to the object and
-determine whether the time to do comes or not.
+determine whether the time to rotate comes or not.
=cut
@@ -175,7 +175,7 @@ sub is_time_to_rotate
=head2 rotate($file)
-rename files to rotate it.
+rename files to rotate.
rm file.4
mv file.3 file.4
@@ -187,7 +187,7 @@ rename files to rotate it.
=cut
-# Descriptions: rotate file.
+# Descriptions: rotate files.
# Arguments: OBJ($self) STR($file)
# Side Effects: rename in proper way and unlink the oldest file if needed.
# Return Value: none
@@ -224,7 +224,7 @@ Ken'ichi Fukamachi
=head1 COPYRIGHT
-Copyright (C) 2004 Ken'ichi Fukamachi
+Copyright (C) 2004,2005 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.