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;
}