git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable warnings within PLP::Script
[perl/plp/.git]
/
lib
/
PLP.pm
diff --git
a/lib/PLP.pm
b/lib/PLP.pm
index b9e3b7eef5c4ab59b01044c6aba37f6dd0732b49..a470b520381ca77588c8517e35988325271bda42 100644
(file)
--- a/
lib/PLP.pm
+++ b/
lib/PLP.pm
@@
-239,10
+239,10
@@
sub start {
# No lexicals may exist at this point.
# 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/;
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;
PLP::error($@, 1) if $@ and $@ !~ /\cS\cT\cO\cP/;
}
PLP::sendheaders() unless $PLP::sentheaders;