&My::Web::footer call is deprecated now, use just: exit;

[www.jankratochvil.net.git] / project / Pod2Html.pm

diff --git a/project/Pod2Html.pm b/project/Pod2Html.pm
index 1918d20..365c66e 100755 (executable)
--- a/project/Pod2Html.pm
+++ b/project/Pod2Html.pm
@@ -36,6 +36,7 @@ my $W=My::Web->init(
                                "cvs"=>'^[\w\d][\w\d/.]*$',
                                },
                );
+My::Web->heading();
 
 
 $W->{"r"}->content_type("text/html");
@@ -47,6 +48,6 @@ print $_ while <F>;
 close F;
 
 
-exit 0;
+exit;
 }
 1;