checkin v3.10

[perl/plp/.git] / PLP / Tie / Print.pm

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 9d0c0a9e5e5f59e00ddc845644af5c5966dfffda..4c6983f838a3d5cfe8f0efd420a97d085dfc4fb0 100644 (file)
--- a/PLP/Tie/Print.pm
+++ b/PLP/Tie/Print.pm
@@ -9,6 +9,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,6 +21,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;