X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/0bf81ada5160669ea620d0c8030829f0bbdfd311..47ba656450de67f0bdf3e01dd920e744c2fa9218:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index df6ea34..57292ad 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -14,7 +14,7 @@ use Cwd ();
 
 use strict;
 
-our $VERSION = '3.17';
+our $VERSION = '3.18';
 
 # Subs in this package:
 #  _default_error($plain, $html)    Default error handler
@@ -172,7 +172,7 @@ sub mod_perl_init {
 
 # FAST printing under mod_perl
 sub mod_perl_print {
-    return if @_ == 1 and not length $_[0];
+	return unless grep length, @_;
     PLP::sendheaders() unless $PLP::sentheaders;
     $PLP::r->print(@_);
 }
@@ -533,9 +533,11 @@ FAQ at L<PLP::FAQ>. Some examples can be found at L<PLP::HowTo>.
 No warranty, no guarantees. Use PLP at your own risk, as I disclaim all
 responsibility.
 
-=head1 AUTHOR
+=head1 AUTHORS
 
-Juerd Waalboer <juerd@cpan.org>
+Currently maintained by Mischa POSLAWSKY <perl@shiar.org>
+
+Originally by Juerd Waalboer <juerd@cpan.org>
 
 =head1 SEE ALSO