diff options
| author | fukachan <fukachan> | 2001-10-10 03:10:10 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-10-10 03:10:10 +0000 |
| commit | 91af97f340a84c247152e3c4986c6d26fc8707ee (patch) | |
| tree | 3384aab380b2f9f5f1db1d18470274e64f014746 | |
| parent | 676ce4adb54de891e6c8c858e39ca49a0e59e0c3 (diff) | |
| download | fml8-91af97f340a84c247152e3c4986c6d26fc8707ee.tar.gz fml8-91af97f340a84c247152e3c4986c6d26fc8707ee.tar.bz2 fml8-91af97f340a84c247152e3c4986c6d26fc8707ee.zip | |
more debug info
| -rw-r--r-- | fml/lib/FML/Config.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index abb2efb0..a39e34bf 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -1,7 +1,7 @@ #-*- perl -*- # Copyright (C) 2000-2001 Ken'ichi Fukamachi # -# $FML: Config.pm,v 1.39 2001/09/13 12:20:39 fukachan Exp $ +# $FML: Config.pm,v 1.40 2001/09/22 14:11:30 fukachan Exp $ # package FML::Config; @@ -118,7 +118,10 @@ sub new # import variables if (defined $args) { my ($k, $v); - while (($k, $v) = each %$args) { set($me, $k, $v);} + while (($k, $v) = each %$args) { + print "set($me, $k, $v)\n" if $0 =~ /loader/; # debug + set($me, $k, $v); + } } # unique object identifier |