summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0daff7b)
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 {
# 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(@_);
}
PLP::sendheaders() unless $PLP::sentheaders;
$PLP::r->print(@_);
}
- return if @_ == 1 and not length $_[0];
+ return unless grep length, @_;
PLP::sendheaders() unless $PLP::sentheaders;
print STDOUT @_;
select STDOUT;
PLP::sendheaders() unless $PLP::sentheaders;
print STDOUT @_;
select STDOUT;
+ return unless length $_[0];
+ PLP::sendheaders() unless $PLP::sentheaders;
printf STDOUT @_;
select STDOUT;
}
printf STDOUT @_;
select STDOUT;
}