X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/0f5e78a789961923b45cae1a881c655fff9e7283..693387f6e6cf5efde73b10242253bb38baf1612a:/PLP/Tie/Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 7563ba5..3d5027a 100644
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -1,6 +1,5 @@
-#--------------------#
- package PLP::Tie::Print;
-#--------------------#
+package PLP::Tie::Print;
+
 use strict;
 
 =head1 PLP::Tie::Print
@@ -9,6 +8,8 @@ Just prints to stdout, but sends headers if not sent before.
 
     tie *HANDLE, 'PLP::Tie::Print';
 
+This module is part of the PLP Internals and probably not of much use to others.
+
 =cut
 
 sub TIEHANDLE {
@@ -19,7 +20,8 @@ sub WRITE { undef; }
 
 sub PRINT {
     my ($self, @param) = @_;
-    PLP::SendHeaders() unless $PLP::sentheaders;
+    return if @param == 1 and not length $param[0];
+    PLP::sendheaders() unless $PLP::sentheaders;
     print STDOUT @param;
     select STDOUT;
 }