Apply patch from RT#57697

diff --git a/perl/ChangeLog b/perl/ChangeLog
index c010ff2..3429217 100644 (file)
--- 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 (file)
--- 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, ...)