summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9b76d38)
No reason to always create $PLP::r, as it's only used with Apache.
$PLP::sentheaders = 0;
$PLP::DEBUG = 1;
$PLP::print = '';
$PLP::sentheaders = 0;
$PLP::DEBUG = 1;
$PLP::print = '';
delete @ENV{ grep /^PLP_/, keys %ENV };
}
delete @ENV{ grep /^PLP_/, keys %ENV };
}
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
$PLP::print = 'PLP::Apache::print';
$PLP::read = \&read;
$PLP::print = 'PLP::Apache::print';
$PLP::read = \&read;
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
- $PLP::Apache::r->print(@_);
}
# This is the mod_perl handler.
}
# This is the mod_perl handler.