diff options
| author | fukachan <fukachan> | 2001-11-09 13:23:14 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-09 13:23:14 +0000 |
| commit | 7bdfde697a5515d1d56dd191864d402a75a23452 (patch) | |
| tree | 8163f5b20e0f524f804d8e5524cc67dab31b6f02 | |
| parent | 749503d2402c17df4c04d1b9fec51762443b9f1e (diff) | |
| download | fml8-7bdfde697a5515d1d56dd191864d402a75a23452.tar.gz fml8-7bdfde697a5515d1d56dd191864d402a75a23452.tar.bz2 fml8-7bdfde697a5515d1d56dd191864d402a75a23452.zip | |
more debug info
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/ThreadTrack.pm | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 0606582a..f705526b 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.32 2001/11/08 03:37:58 fukachan Exp $ +# $FML: Switch.pm,v 1.33 2001/11/09 00:05:19 fukachan Exp $ # package FML::Process::Switch; @@ -465,6 +465,8 @@ sub _module_we_use return ''; } + print STDERR "module = $pkg (for $0)\n" if $ENV{'debug'}; + return $pkg; } diff --git a/fml/lib/FML/Process/ThreadTrack.pm b/fml/lib/FML/Process/ThreadTrack.pm index 03b8eb53..e94ed36c 100644 --- a/fml/lib/FML/Process/ThreadTrack.pm +++ b/fml/lib/FML/Process/ThreadTrack.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000-2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: ThreadTrack.pm,v 1.9 2001/11/07 04:31:13 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.10 2001/11/07 09:28:27 fukachan Exp $ # package FML::Process::ThreadTrack; @@ -94,6 +94,7 @@ sub run reverse_order => (defined $options->{ reverse } ? 1 : 0), }; + use Mail::ThreadTrack; my $thread = new Mail::ThreadTrack $ttargs; $thread->set_mode('text'); @@ -112,6 +113,7 @@ sub run $thread->review( $str , 1, $max_id ); } elsif ($command eq 'db_rebuild') { + print STDERR "\$thread->db_mkdb(1, $max_id);\n" if $ENV{'debug'}; $thread->db_mkdb(1, $max_id); } elsif ($command eq 'db_clear') { |