From: Florian Ragwitz <rafl@debian.org>
Date: Wed, 14 Jul 2010 15:52:09 +0000 (+0200)
Subject: Apply patch from RT#57697
X-Git-Tag: 0.71_01~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2Ffcgi2.git;a=commitdiff_plain;h=9a03f456ec1415936d3c73cb3344fff10d4d3743

Apply patch from RT#57697
---

diff --git a/perl/ChangeLog b/perl/ChangeLog
index c010ff2..3429217 100644
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,5 @@
+    o Fix PRINT retval (Closes: RT#57697).
+
 Version 0.71 --      1 Apr 2010  <rafl@debian.org> Florian Ragwitz
     o Fix some more defined(%hash) warnings on perl 5.12.
 
diff --git a/perl/FCGI.XL b/perl/FCGI.XL
index d24ee48..5bd85fa 100644
--- a/perl/FCGI.XL
+++ b/perl/FCGI.XL
@@ -558,6 +558,8 @@ PRINT(stream, ...)
 	    ok = FALSE;
 
     RETVAL = ok ? &PL_sv_yes : &PL_sv_undef;
+    OUTPUT:
+        RETVAL
 
 int
 WRITE(stream, bufsv, len, ...)