X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/0daff7b8f9f15f54cfd2af57e4c8f868db199dda..47ba656450de67f0bdf3e01dd920e744c2fa9218:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 6d6a520..57292ad 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -172,7 +172,7 @@ sub mod_perl_init {
 
 # 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(@_);
 }