X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/ef6d542255046b6f50d7047d8e5a1d85b9f01042..3565beca174066a12d2d952d4b24d79a0ca55412:/PLP/Tie/Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 9d0c0a9..0647f7c 100644
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -19,6 +19,7 @@ sub WRITE { undef; }
 
 sub PRINT {
     my ($self, @param) = @_;
+    return if @param == 1 and not length $param[0];
     PLP::sendheaders() unless $PLP::sentheaders;
     print STDOUT @param;
     select STDOUT;