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
50-cgi.t: test PLP::Backend::CGI parse output of most plp features
[perl/plp/.git]
/
lib
/
PLP.pm
diff --git
a/lib/PLP.pm
b/lib/PLP.pm
index b9e3b7eef5c4ab59b01044c6aba37f6dd0732b49..2c6d7142d320b5969f8928224fb5a60372ae5182 100644
(file)
--- a/
lib/PLP.pm
+++ b/
lib/PLP.pm
@@
-14,7
+14,7
@@
use File::Spec;
use strict;
use warnings;
use strict;
use warnings;
-our $VERSION = '3.2
0
';
+our $VERSION = '3.2
1
';
# Subs in this package:
# _default_error($plain, $html) Default error handler
# Subs in this package:
# _default_error($plain, $html) Default error handler
@@
-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;