Skip Menu |

This queue is for tickets about the RPC-XML CPAN distribution.

Report information
The Basics
Id: 53448
Status: open
Priority: 0/
Queue: RPC-XML

People
Owner: rjray [...] blackperl.com
Requestors: moseley [...] hank.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.72
Fixed in: (no value)



Hi Randy,

To get deflated content to work need to set WindowBits. to -MAX_WBITS.

Against current:

moseley@bumby2:~$ diff -u Client.pm /usr/local/share/perl/5.10.0/RPC/XML/Client.pm
--- Client.pm   2010-01-06 13:35:59.000000000 -0800
+++ /usr/local/share/perl/5.10.0/RPC/XML/Client.pm      2010-01-06 13:38:05.000000000 -0800
@@ -336,8 +336,12 @@
                 if ($compression and (! $can_compress));
             if ($compression)
             {
+                $com_engine =  Compress::Zlib::inflateInit(
+                    WindowBits => -Compress::Zlib::MAX_WBITS(),
+                );
+
                 die "$me: Unable to initialize de-compression engine"
-                    unless ($com_engine = Compress::Zlib::inflateInit());
+                    unless $com_engine;
             }
         }