diff options
| author | fukachan <fukachan> | 2001-11-17 04:01:54 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-17 04:01:54 +0000 |
| commit | 2e433b4b40b942cb9325833061d66ed3362b308f (patch) | |
| tree | 5b5b9cefd6e2bac7d8d834af05f2007a9e508689 /fml/lib/Mail/HTML | |
| parent | 20f3ee36be0360a407d0389cf5082db6f8f357a9 (diff) | |
| download | fml8-2e433b4b40b942cb9325833061d66ed3362b308f.tar.gz fml8-2e433b4b40b942cb9325833061d66ed3362b308f.tar.bz2 fml8-2e433b4b40b942cb9325833061d66ed3362b308f.zip | |
disable debug code, enable it when $ENV{debug} is defined
Diffstat (limited to 'fml/lib/Mail/HTML')
| -rw-r--r-- | fml/lib/Mail/HTML/Lite.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm index 6fd89412..c3513336 100644 --- a/fml/lib/Mail/HTML/Lite.pm +++ b/fml/lib/Mail/HTML/Lite.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: Lite.pm,v 1.28 2001/10/29 11:44:38 fukachan Exp $ +# $FML: Lite.pm,v 1.29 2001/10/29 15:07:03 fukachan Exp $ # package Mail::HTML::Lite; @@ -15,7 +15,7 @@ use Carp; my $debug = $ENV{'debug'} ? 1 : 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::HTML::Lite</A>"; -my $version = q$FML: Lite.pm,v 1.28 2001/10/29 11:44:38 fukachan Exp $; +my $version = q$FML: Lite.pm,v 1.29 2001/10/29 15:07:03 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -2104,7 +2104,9 @@ sub htmlify_file directory => $dst_dir, }; - printf STDERR "htmlify_file( id=%-6s src=%s )\n", $id, $file; + if (defined $ENV{'debug'}) { + printf STDERR "htmlify_file( id=%-6s src=%s )\n", $id, $file; + } $html->htmlfy_rfc822_message({ id => $id, @@ -2118,7 +2120,7 @@ sub htmlify_file # no more action for old files if ($html->is_ignore($id)) { - warn("not process $id (already exists)"); + warn("not process $id (already exists)") if defined $ENV{'debug'}; } } |