diff options
| author | fukachan <fukachan> | 2001-11-17 15:21:18 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-17 15:21:18 +0000 |
| commit | 91c2d366d93ecc7b43cf3e2892e2e6c84c2bec80 (patch) | |
| tree | 20f5b15da3b529bdf005d41294c7c70f1d1d69b8 /fml/lib/Mail/HTML | |
| parent | 4891bc1ef24b3d612aa368abdb8dd545e02b41fc (diff) | |
| download | fml8-91c2d366d93ecc7b43cf3e2892e2e6c84c2bec80.tar.gz fml8-91c2d366d93ecc7b43cf3e2892e2e6c84c2bec80.tar.bz2 fml8-91c2d366d93ecc7b43cf3e2892e2e6c84c2bec80.zip | |
show processing a little
Diffstat (limited to 'fml/lib/Mail/HTML')
| -rw-r--r-- | fml/lib/Mail/HTML/Lite.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm index c3513336..1ad3b4eb 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.29 2001/10/29 15:07:03 fukachan Exp $ +# $FML: Lite.pm,v 1.30 2001/11/17 04:01:54 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.29 2001/10/29 15:07:03 fukachan Exp $; +my $version = q$FML: Lite.pm,v 1.30 2001/11/17 04:01:54 fukachan Exp $; if ($version =~ /,v\s+([\d\.]+)\s+/) { $version = "$URL $1"; } @@ -2122,6 +2122,9 @@ sub htmlify_file if ($html->is_ignore($id)) { warn("not process $id (already exists)") if defined $ENV{'debug'}; } + else { + printf STDERR " converted( id=%-6s src=%s )\n", $id, $file; + } } |