Headers were not sent on initial printf or print with empty first argument.
plp.tieprint.patch by Shiar 2002-08-21 18:54:45
# FAST printing under mod_perl
sub mod_perl_print {
- return if @_ == 1 and not length $_[0];
+ return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
$PLP::r->print(@_);
}
sub PRINT {
shift;
- return if @_ == 1 and not length $_[0];
+ return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
print STDOUT @_;
select STDOUT;
sub PRINTF {
shift;
+ return unless length $_[0];
+ PLP::sendheaders() unless $PLP::sentheaders;
printf STDOUT @_;
select STDOUT;
}