Skip Menu |
 

This queue is for tickets about the Compress-Raw-Zlib CPAN distribution.

Report information
The Basics
Id: 81353
Status: resolved
Priority: 0/
Queue: Compress-Raw-Zlib

People
Owner: Nobody in particular
Requestors: 'spro^^*%*^6ut# [...] &$%*c
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 2.059



Subject: [PATCH] Handle copy-on-write scalars
See ticket #81352. Compress::Raw::Zlib needs the same treatment.
Subject: open_SvuRUjvz.txt
Download open_SvuRUjvz.txt
text/plain 703b
diff --git a/Zlib.xs b/Zlib.xs index c6558c0..58aa308 100644 --- a/Zlib.xs +++ b/Zlib.xs @@ -1333,8 +1333,11 @@ inflate (s, buf, output, eof=FALSE) /* If the buffer is a reference, dereference it */ buf = deRef(buf, "inflate") ; - if (s->flags & FLAG_CONSUME_INPUT && SvREADONLY(buf)) + if (s->flags & FLAG_CONSUME_INPUT) { + if (SvREADONLY(buf)) croak("Compress::Raw::Zlib::Inflate::inflate input parameter cannot be read-only when ConsumeInput is specified"); + SvPV_force(buf,PL_na); + } #ifdef UTF8_AVAILABLE if (DO_UTF8(buf) && !sv_utf8_downgrade(buf, 1)) croak("Wide character in Compress::Raw::Zlib::Inflate::inflate input parameter");
Applied this as well. Paul
Version 2.059 just uploaded to CPAN with this change included. Paul
On Sat Nov 24 18:22:52 2012, PMQS wrote: Show quoted text
> Applied this as well. > > Paul
Thank you.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.