diff options
| author | fukachan <fukachan> | 2002-02-01 12:03:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-02-01 12:03:55 +0000 |
| commit | a176a2ad4ac5fd35a3a056dd3828c0dbb1da0e6d (patch) | |
| tree | c06f02bd93f73f40c2cafff8c461d73731b15b6d /fml/lib/FML/Config.pm | |
| parent | eec3fb6d6aa9ffe509abbab89f304f450295d860 (diff) | |
| download | fml8-a176a2ad4ac5fd35a3a056dd3828c0dbb1da0e6d.tar.gz fml8-a176a2ad4ac5fd35a3a056dd3828c0dbb1da0e6d.tar.bz2 fml8-a176a2ad4ac5fd35a3a056dd3828c0dbb1da0e6d.zip | |
remove $ENV{debug} based toggle flagsubdir-base
Diffstat (limited to 'fml/lib/FML/Config.pm')
| -rw-r--r-- | fml/lib/FML/Config.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index 10d731a5..fede8bfa 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -1,11 +1,13 @@ #-*- perl -*- # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # -# $FML: Config.pm,v 1.49 2002/01/13 13:35:24 fukachan Exp $ +# $FML: Config.pm,v 1.50 2002/01/30 14:51:15 fukachan Exp $ # package FML::Config; +my $debug = 0; + use strict; use Carp; use vars qw($need_expansion_variables @@ -292,7 +294,7 @@ sub _read_file $comment->{ $key } = $comment_buffer; undef $comment_buffer; - print STDERR "push(@$order, $key);\n" if $ENV{'debug'}; + print STDERR "push(@$order, $key);\n" if $debug; push(@$order, $key); } } @@ -374,7 +376,7 @@ sub read }); # XXX debug: removed in the future - if ($ENV{'debug'}) { + if ($debug) { my ($k, $v); while (($k, $v) = each %$config) { print STDERR "\nconfig{ $k } =>\n"; @@ -422,7 +424,7 @@ sub write # XXX get variable list modified in this process my $newkeys = $self->{ _newly_added_keys }; for my $k (@$order, @$newkeys) { - if ($ENV{'debug'} && defined $comment->{$k}) { + if ($debug && defined $comment->{$k}) { print STDERR "write.config{ ", $comment->{$k}, " }"; print STDERR join("\n\t", split(/\s+/, $config->{$k})), "\n"; } |