v3.03 release

diff --git a/PLP.pm b/PLP.pm
index 78e0dacf85f2db4e9eb9a4174c2ca16c59b0b871..ad4a227883f34ce1f863fa74baa5a22be5b31bd0 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -2,7 +2,7 @@ package PLP;
 
 # Not to be used without the CGI script;
 
-our $VERSION = '3.02';
+our $VERSION = '3.03';
 
 use PLP::Functions ();
 use PLP::Fields;

diff --git a/PLP/Tie/Print.pm b/PLP/Tie/Print.pm
index 9d0c0a9e5e5f59e00ddc845644af5c5966dfffda..0647f7c10826200f1ab2e3f6aed81f4b9387ac0f 100644 (file)
--- 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;

diff --git a/plp.cgi b/plp.cgi
index 850e30579dc0afc447975dfcfbf358c8ced0518e..a3c427b69379a8e4f53a35350623f84c3e9113b1 100755 (executable)
--- a/plp.cgi
+++ b/plp.cgi
@@ -2,7 +2,7 @@
 use v5.6.0;
 use PLP;
 
-die 'Wrong module version' if $PLP::VERSION ne '3.02';
+die 'Wrong module version' if $PLP::VERSION ne '3.03';
 
 use vars qw($DEBUG);