X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/1376138c9392575534de671ce7b6fbb05a578e19..3d9da133799284e18b7ee0e4a6b3754394c0f7dd:/PLP/Tie/Print.pm?ds=sidebyside

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 8ec4e4a..83b5c76 100644
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -18,7 +18,7 @@ sub WRITE { undef }
 
 sub PRINT {
     shift;
-    return if @_ == 1 and not length $_[0];
+    return unless grep length, @_;
     PLP::sendheaders() unless $PLP::sentheaders;
     print STDOUT @_;
     select STDOUT;
@@ -26,6 +26,8 @@ sub PRINT {
 
 sub PRINTF {
     shift;
+    return unless length $_[0];
+    PLP::sendheaders() unless $PLP::sentheaders;
     printf STDOUT @_;
     select STDOUT;
 }