remove $ENV{debug} based toggle flagsubdir-base

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;
 	}
     }
 }