}
}
+our $r;
+
# mod_perl initializer: returns 0 on success, Apache error code on failure
sub init {
- our $r = shift;
+ $r = shift;
$PLP::print = 'PLP::Apache::print';
$PLP::read = \&read;
sub print {
return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
- $PLP::Apache::r->print(@_);
+ $r->print(@_);
}
# This is the mod_perl handler.