diff options
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/CGI/Kernel.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/HTMLify.pm | 8 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 7 | ||||
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 6 |
5 files changed, 16 insertions, 15 deletions
diff --git a/fml/lib/FML/Process/CGI/Kernel.pm b/fml/lib/FML/Process/CGI/Kernel.pm index a120bd32..79ca554e 100644 --- a/fml/lib/FML/Process/CGI/Kernel.pm +++ b/fml/lib/FML/Process/CGI/Kernel.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: Kernel.pm,v 1.12 2001/12/23 11:39:46 fukachan Exp $ +# $FML: Kernel.pm,v 1.13 2002/01/30 15:20:30 fukachan Exp $ # package FML::Process::CGI::Kernel; @@ -210,8 +210,6 @@ sub AUTOLOAD return if $AUTOLOAD =~ /DESTROY/; - if (defined $ENV{'debug'}) { my (@c) = caller; warn("AUTOLOAD: @c");} - my $comname = $AUTOLOAD; $comname =~ s/.*:://; diff --git a/fml/lib/FML/Process/HTMLify.pm b/fml/lib/FML/Process/HTMLify.pm index e6f4ce65..b0903b49 100644 --- a/fml/lib/FML/Process/HTMLify.pm +++ b/fml/lib/FML/Process/HTMLify.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000-2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: HTMLify.pm,v 1.6 2001/12/22 09:21:09 fukachan Exp $ +# $FML: HTMLify.pm,v 1.7 2001/12/23 07:04:30 fukachan Exp $ # package FML::Process::HTMLify; @@ -16,6 +16,8 @@ use FML::Process::Kernel; use FML::Log qw(Log LogWarn LogError); use FML::Config; +my $debug = 0; + @ISA = qw(FML::Process::Kernel); @@ -95,11 +97,11 @@ sub run my $src_dir = $argv->[0]; my $dst_dir = $argv->[1]; - print STDERR "htmlify\t$src_dir =>\n\t\t$dst_dir\n" if $ENV{'debug'}; + print STDERR "htmlify\t$src_dir =>\n\t\t$dst_dir\n" if $debug; # prepend $opt_I as @INC if (defined $options->{ I }) { - print STDERR "\t\tprepend $options->{ I } (\@INC)\n" if $ENV{'debug'}; + print STDERR "\t\tprepend $options->{ I } (\@INC)\n" if $debug; unshift(@INC, $options->{ I }); } diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 418a1bf9..6c70eb7d 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.71 2002/01/20 13:47:07 fukachan Exp $ +# $FML: Kernel.pm,v 1.72 2002/01/30 15:27:59 fukachan Exp $ # package FML::Process::Kernel; @@ -14,6 +14,8 @@ use Carp; use vars qw(@ISA); use File::Spec; +my $debug = 0; + =head1 NAME FML::Process::Kernel - provide fml core functions @@ -187,7 +189,7 @@ sub _trap_help my $option = $curproc->command_line_options(); if (defined $option->{ help }) { - print STDERR "FML::Process::Kernel trapped\n" if defined $ENV{'debug'}; + print STDERR "FML::Process::Kernel trapped\n" if $debug; if ($curproc->can('help')) { $curproc->help(); } diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 2089d58d..7e43c83f 100644 --- a/fml/lib/FML/Process/Switch.pm +++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.50 2001/12/23 11:37:07 fukachan Exp $ +# $FML: Switch.pm,v 1.51 2002/01/30 15:12:44 fukachan Exp $ # package FML::Process::Switch; @@ -179,8 +179,7 @@ sub main::Bootstrap2 my $reason = $@; if ($obj->can('help')) { eval $obj->help();}; - if ($ENV{'debug'} || - defined( $main_cf->{ debug } ) || + if (defined( $main_cf->{ debug } ) || defined $options{debug}) { croak($reason); } @@ -501,7 +500,7 @@ sub _module_we_use return ''; } - print STDERR "module = $pkg (for $0)\n" if $ENV{'debug'}; + print STDERR "module = $pkg (for $0)\n" if $debug; return $pkg; } diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index 92177ad4..452544d6 100644 --- a/fml/lib/FML/Process/ThreadTrack.pm +++ b/fml/lib/FML/Process/ThreadTrack.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000-2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ThreadTrack.pm,v 1.18 2001/12/22 09:21:10 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.19 2001/12/23 11:37:08 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -137,7 +137,7 @@ sub run $thread->db_mkdb($last_id, $max_id); } elsif ($command eq 'db_rebuild') { - print STDERR "\$thread->db_mkdb(1, $max_id);\n" if $ENV{'debug'}; + print STDERR "\$thread->db_mkdb(1, $max_id);\n" if $debug; $thread->db_mkdb(1, $max_id); } elsif ($command eq 'db_clear') { @@ -282,7 +282,7 @@ sub _close $thread->close($id); } else { - Log("thread_id=$id not exists") if $ENV{'debug'}; + Log("thread_id=$id not exists") if $debug; } } } |