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

[www.jankratochvil.net.git] / project / PerlMail / Index.pm

diff --git a/project/PerlMail/Index.pm b/project/PerlMail/Index.pm
index 9fbd8d4..a25cf62 100644 (file)
--- a/project/PerlMail/Index.pm
+++ b/project/PerlMail/Index.pm
@@ -45,7 +45,7 @@ It supports @{[ a_href 'http://www.perl.org/','Perl' ]}-rules filtering, dynamic
 mobile SMS forwarding, @{[ a_href 'http://www.mutt.org/','Mutt' ]} integration,
 @{[ a_href 'http://www.nokia.com/phones/9110i','Nokia Communicator' ]} contacts directory integration.</p>
 <p>Use if you like: <span class="quote">
-       @{[ CGI::escapeHTML(q{store "=spam" if ($_=mimehead(body_first())->mime_attr("Content-Type")) && m#text/html#i;}) ]}
+       @{[ escapeHTML(q{store "=spam" if ($_=mimehead(body_first())->mime_attr("Content-Type")) && m#text/html#i;}) ]}
        </span></p>
 HERE
                );
@@ -72,6 +72,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;