diff options
| author | fukachan <fukachan> | 2003-08-24 14:09:25 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-24 14:09:25 +0000 |
| commit | 7beb52130aff7fa6cef84ea887b8adb400f966e6 (patch) | |
| tree | 9ece45cacccc45a58a4e8ed9607b485a8c40421a /fml/lib/File | |
| parent | 13d29ca11d2359e8ff9bf8841fa00b183c9874f6 (diff) | |
| download | fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.tar.gz fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.tar.bz2 fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.zip | |
remove debug: print STDERR ..
Diffstat (limited to 'fml/lib/File')
| -rw-r--r-- | fml/lib/File/Rotate.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/fml/lib/File/Rotate.pm b/fml/lib/File/Rotate.pm index 5f77c5bb..26bb129d 100644 --- a/fml/lib/File/Rotate.pm +++ b/fml/lib/File/Rotate.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: Rotate.pm,v 1.14 2003/08/23 04:35:42 fukachan Exp $ +# $FML: Rotate.pm,v 1.15 2003/08/23 15:33:16 fukachan Exp $ # package File::Rotate; @@ -138,7 +138,6 @@ sub rotate do { my $old = "$file.".($max - 1 > 0 ? $max - 1 : 0); my $new = "$file.".($max); - print STDERR "rename($old, $new)" if -f $old; -f $old && rename($old, $new); $max--; } while ($max > 0); |