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

diff --git a/lib/PLP.pm b/lib/PLP.pm
index b9e3b7e..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
@@ -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;