X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy%2FHtmlWriter.pm;h=eba6335a47cfead7ab7a0090c1880a508f737689;hb=880633cc084e9d787eb9f760d3851c5d660db17c;hp=8c11ee5afba7c6a6078d19a1395d9216f5caa0c5;hpb=57d829ae0e2c75828f8ecc9c7139579350927dbc;p=perltidy.git
diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 8c11ee5..eba6335 100644
--- a/lib/Perl/Tidy/HtmlWriter.pm
+++ b/lib/Perl/Tidy/HtmlWriter.pm
@@ -7,7 +7,7 @@
package Perl::Tidy::HtmlWriter;
use strict;
use warnings;
-our $VERSION = '20210717';
+our $VERSION = '20220217';
use File::Basename;
@@ -226,6 +226,7 @@ sub add_toc_item {
$html_toc_fh->print("\n\n");
${$rin_toc_package} = "";
}
+ return;
};
my $start_package_list = sub {
@@ -236,6 +237,7 @@ sub add_toc_item {
EOM
${$rin_toc_package} = $package;
+ return;
};
# start the table of contents on the first item
@@ -763,6 +765,7 @@ sub pod_to_html {
$html_fh->print($_) unless ($no_print);
if ($in_toc) { push @toc, $_ }
}
+ return;
};
# loop over lines of html output from pod2html and merge in
@@ -1429,6 +1432,8 @@ sub write_line {
elsif ( $line_type eq 'HERE_END' ) { $line_character = 'h' }
elsif ( $line_type eq 'FORMAT' ) { $line_character = 'H' }
elsif ( $line_type eq 'FORMAT_END' ) { $line_character = 'h' }
+ elsif ( $line_type eq 'SKIP' ) { $line_character = 'H' }
+ elsif ( $line_type eq 'SKIP_END' ) { $line_character = 'h' }
elsif ( $line_type eq 'SYSTEM' ) { $line_character = 'c' }
elsif ( $line_type eq 'END_START' ) {
$line_character = 'k';
@@ -1503,4 +1508,3 @@ EOM
return;
}
1;
-