New upstream version 20220217

[perltidy.git] / lib / Perl / Tidy / HtmlWriter.pm

diff --git a/lib/Perl/Tidy/HtmlWriter.pm b/lib/Perl/Tidy/HtmlWriter.pm
index 8c11ee5afba7c6a6078d19a1395d9216f5caa0c5..eba6335a47cfead7ab7a0090c1880a508f737689 100644 (file)
--- 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("</ul>\n</li>\n");
             ${$rin_toc_package} = "";
         }
+        return;
     };
 
     my $start_package_list = sub {
@@ -236,6 +237,7 @@ sub add_toc_item {
 <ul>
 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;
-