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 | |
| parent | 13d29ca11d2359e8ff9bf8841fa00b183c9874f6 (diff) | |
| download | fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.tar.gz fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.tar.bz2 fml8-7beb52130aff7fa6cef84ea887b8adb400f966e6.zip | |
remove debug: print STDERR ..
| -rw-r--r-- | fml/lib/File/Rotate.pm | 3 | ||||
| -rw-r--r-- | fml/lib/IO/Adapter/DBI.pm | 4 | ||||
| -rw-r--r-- | fml/lib/IO/Adapter/File.pm | 3 |
3 files changed, 4 insertions, 6 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); diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm index ce24a5cb..941d4691 100644 --- a/fml/lib/IO/Adapter/DBI.pm +++ b/fml/lib/IO/Adapter/DBI.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi # All rights reserved. # -# $FML: DBI.pm,v 1.26 2003/05/26 12:28:06 fukachan Exp $ +# $FML: DBI.pm,v 1.27 2003/08/23 04:35:44 fukachan Exp $ # package IO::Adapter::DBI; @@ -361,7 +361,7 @@ sub md_find } } else { - print STDERR "no _res\n"; + print STDERR "no _res\n" if $debug; return undef; } diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm index cf721a15..711ece3d 100644 --- a/fml/lib/IO/Adapter/File.pm +++ b/fml/lib/IO/Adapter/File.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: File.pm,v 1.46 2003/05/26 12:28:06 fukachan Exp $ +# $FML: File.pm,v 1.47 2003/08/23 04:35:44 fukachan Exp $ # package IO::Adapter::File; @@ -254,7 +254,6 @@ sub _get_next_xxx $value =~ s/^\s*//; $value =~ s/\s*$//; my (@buf) = split(/\s+/, $value); - print STDERR "[ @buf ]\n"; $buf = \@buf; } $ec++; |