# pre section goes directly to the output stream
$html_pre_fh = $html_fh;
- $html_pre_fh->print( <<"PRE_END");
+ $html_pre_fh->print(<<"PRE_END");
<pre>
PRE_END
}
# but just quit if we hit EOF without any other entries
# in this case, there will be no toc
return if ( $type eq 'EOF' );
- $html_toc_fh->print( <<"TOC_END");
+ $html_toc_fh->print(<<"TOC_END");
<!-- BEGIN CODE INDEX --><a name="code-index"></a>
<ul>
TOC_END
# end the table of contents, if any, on the end of file
if ( $type eq 'EOF' ) {
- $html_toc_fh->print( <<"TOC_END");
+ $html_toc_fh->print(<<"TOC_END");
</ul>
<!-- END CODE INDEX -->
TOC_END
# Path 1: finish up if in -pre mode
# ---------------------------------
if ( $rOpts->{'html-pre-only'} ) {
- $html_fh->print( <<"PRE_END");
+ $html_fh->print(<<"PRE_END");
</pre>
PRE_END
$html_fh->close()
# or use css embedded in this file
else {
- $fh_css->print( <<'ENDCSS');
+ $fh_css->print(<<'ENDCSS');
<style type="text/css">
<!--
ENDCSS
write_style_sheet_data($fh_css);
- $fh_css->print( <<"ENDCSS");
+ $fh_css->print(<<"ENDCSS");
-->
</style>
ENDCSS
my $date = localtime;
$timestamp = "on $date";
}
- $html_fh->print( <<"HTML_START");
+ $html_fh->print(<<"HTML_START");
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- Generated by perltidy $timestamp -->
# output the css, if used
if ($css_string) {
$html_fh->print($css_string);
- $html_fh->print( <<"ENDCSS");
+ $html_fh->print(<<"ENDCSS");
</head>
<body>
ENDCSS
}
else {
- $html_fh->print( <<"HTML_START");
+ $html_fh->print(<<"HTML_START");
</head>
<body bgcolor=\"$rOpts->{'html-color-background'}\" text=\"$rOpts->{'html-color-punctuation'}\">
HTML_START
}
$html_fh->print("<a name=\"-top-\"></a>\n");
- $html_fh->print( <<"EOM");
+ $html_fh->print(<<"EOM");
<h1>$title</h1>
EOM
# copy the pre section(s)
my $fname_comment = $input_file;
$fname_comment =~ s/--+/-/g; # protect HTML comment tags
- $html_fh->print( <<"END_PRE");
+ $html_fh->print(<<"END_PRE");
<hr />
<!-- contents of filename: $fname_comment -->
<pre>
}
# and finish the html page
- $html_fh->print( <<"HTML_END");
+ $html_fh->print(<<"HTML_END");
</pre>
</body>
</html>