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 37d95b12e9cf8389a7967c4172f6cbdc72d44510..a470b520381ca77588c8517e35988325271bda42 100644
(file)
--- a/
lib/PLP.pm
+++ b/
lib/PLP.pm
@@
-83,7
+83,7
@@
sub error {
# Wrap old request handlers.
sub everything {
require PLP::Backend::CGI;
# Wrap old request handlers.
sub everything {
require PLP::Backend::CGI;
- PLP::Backend::CGI
::
everything();
+ PLP::Backend::CGI
->
everything();
}
sub handler {
require PLP::Backend::Apache;
}
sub handler {
require PLP::Backend::Apache;
@@
-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;