From 64eae09662a5f969e4665114fdc8c828fe7556d6 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 21 Sep 2005 04:55:55 +0000
Subject: [PATCH] &My::Web::footer call is deprecated now, use just: exit;

---
 HaveJS.pm    | 12 ++++++------
 ModPerlPm.pm |  1 -
 Redirect.pm  |  1 -
 3 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/HaveJS.pm b/HaveJS.pm
index b68c554..6b8230d 100644
--- a/HaveJS.pm
+++ b/HaveJS.pm
@@ -30,12 +30,13 @@ our $HTML_TEST=0;
 
 sub handler
 {
-my $W=My::Web->init();
-
-
-# Do not: My::Web->heading();
+my $W=My::Web->init(
+		"header_only"=>1,
+		);
+My::Web->heading();
 $W->{"r"}->content_type("text/javascript");
 
+
 # Prevent redirection of some top (referring) foreign webpage as it
 # may not pass "have_js=1" to us anyway. (for example Google cache)
 print ""
@@ -62,7 +63,6 @@ print <<'HERE';
 HERE
 
 
-# Do not: My::Web->footer();
-exit 0;
+exit;
 }
 1;
diff --git a/ModPerlPm.pm b/ModPerlPm.pm
index 7d7bf89..20a8fe4 100644
--- a/ModPerlPm.pm
+++ b/ModPerlPm.pm
@@ -61,5 +61,4 @@ my($self,%args)=@_;
 	cluck "No modules?" if !@r;
 	return @r;
 }
-
 1;
diff --git a/Redirect.pm b/Redirect.pm
index 0c0654a..bff6fb9 100644
--- a/Redirect.pm
+++ b/Redirect.pm
@@ -37,6 +37,5 @@ my $W=My::Web->init(
 				},
 		);
 My::Web->http_moved($W->{"args"}{"location"},HTTP_MOVED_PERMANENTLY);
-die "NOTREACHED";
 }
 1;
-- 
1.8.3.1