X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/4b924b1351d4a8ea42652533081a3ea62df110e4..a3442fa35d2f602a960214030d93e86eb64a3148:/lib/PLP.pm

diff --git a/lib/PLP.pm b/lib/PLP.pm
index 37d95b1..2c6d714 100644
--- a/lib/PLP.pm
+++ b/lib/PLP.pm
@@ -14,7 +14,7 @@ use File::Spec;
 use strict;
 use warnings;
 
-our $VERSION = '3.20';
+our $VERSION = '3.21';
 
 # Subs in this package:
 #  _default_error($plain, $html)    Default error handler
@@ -83,7 +83,7 @@ sub error {
 # Wrap old request handlers.
 sub everything {
 	require PLP::Backend::CGI;
-	PLP::Backend::CGI::everything();
+	PLP::Backend::CGI->everything();
 }
 sub handler {
 	require PLP::Backend::Apache;
@@ -239,10 +239,10 @@ sub start {
 
 		# No lexicals may exist at this point.
 		
-		eval qq{ package PLP::Script; $PLP::code; };
+		eval qq{ package PLP::Script; no warnings; $PLP::code; };
 		PLP::error($@, 1) if $@ and $@ !~ /\cS\cT\cO\cP/;
 
-		eval   { package PLP::Script; $_->() for reverse @PLP::END };
+		eval   { package PLP::Script; no warnings; $_->() for reverse @PLP::END };
 		PLP::error($@, 1) if $@ and $@ !~ /\cS\cT\cO\cP/;
 	}
 	PLP::sendheaders() unless $PLP::sentheaders;