diff options
| author | tmu <tmu> | 2004-06-14 13:21:33 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2004-06-14 13:21:33 +0000 |
| commit | 7d042d9b490ca48481b5087d9a42857192580b0e (patch) | |
| tree | 8d69435498b56e85f602ede65d5b33c53c39bd42 /fml | |
| parent | 15fe4bbf11448ab2b9db7aee6ef98e0aa1a73ef1 (diff) | |
| download | fml8-7d042d9b490ca48481b5087d9a42857192580b0e.tar.gz fml8-7d042d9b490ca48481b5087d9a42857192580b0e.tar.bz2 fml8-7d042d9b490ca48481b5087d9a42857192580b0e.zip | |
bugfix @indexs use my $indexs = \@indexs;
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/Mail/Message/ToHTML.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/ToHTML.pm b/fml/lib/Mail/Message/ToHTML.pm index 6f59901a..dfd7e4f6 100644 --- a/fml/lib/Mail/Message/ToHTML.pm +++ b/fml/lib/Mail/Message/ToHTML.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: ToHTML.pm,v 1.66 2004/06/11 10:35:22 tmu Exp $ +# $FML: ToHTML.pm,v 1.67 2004/06/11 15:12:39 tmu Exp $ # package Mail::Message::ToHTML; @@ -17,7 +17,7 @@ my $debug = 0; my $URL = "<A HREF=\"http://www.fml.org/software/\">Mail::Message::ToHTML</A>"; -my $version = q$FML: ToHTML.pm,v 1.66 2004/06/11 10:35:22 tmu Exp $; +my $version = q$FML: ToHTML.pm,v 1.67 2004/06/11 15:12:39 tmu Exp $; my $versionid = 0; if ($version =~ /,v\s+([\d\.]+)\s+/) { $versionid = "$1"; @@ -789,6 +789,7 @@ sub _format_index_navigator my $use_subdir = defined $args->{use_subdir} ? $args->{use_subdir} : 0; my $prefix = $use_subdir ? '../' : ''; my $str; + my $indexs = \@indexs; for my $index (@$indexs) { $str .= qq{<A HREF=\"${prefix}index_all.html\">[ID Index]</A>\n} if($index eq "all"); @@ -2167,6 +2168,7 @@ sub htmlify_file { my ($self, $file, $args) = @_; my $dst_dir = $args->{ output_dir }; + my $indexs = \@indexs; unless (-f $file) { print STDERR "no such file: $file\n" if $debug; |