From a176a2ad4ac5fd35a3a056dd3828c0dbb1da0e6d Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 1 Feb 2002 12:03:55 +0000
Subject: remove $ENV{debug} based toggle flag

---
 fml/lib/FML/Process/HTMLify.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'fml/lib/FML/Process/HTMLify.pm')

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 });
     }
 
-- 
cgit v1.2.1