perl/perl-zlib-growoob.diff
OBS User autobuild 609b92152f Accepting request 31309 from devel:languages:perl
Copy from devel:languages:perl/perl based on submit request 31309 from user coolo

OBS-URL: https://build.opensuse.org/request/show/31309
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=36
2010-02-05 12:54:45 +00:00

21 lines
1.0 KiB
Diff

--- ./ext/Compress/Raw/Zlib/Zlib.xs.orig 2007-12-18 10:47:07.000000000 +0000
+++ ./ext/Compress/Raw/Zlib/Zlib.xs 2009-06-10 09:11:57.000000000 +0000
@@ -1295,7 +1295,7 @@ inflate (s, buf, output, eof=FALSE)
if (s->stream.avail_out == 0 ) {
/* out of space in the output buffer so make it bigger */
- Sv_Grow(output, SvLEN(output) + bufinc) ;
+ Sv_Grow(output, SvLEN(output) + bufinc + 1) ;
cur_length += increment ;
s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ;
increment = bufinc ;
@@ -1336,7 +1336,7 @@ inflate (s, buf, output, eof=FALSE)
s->stream.avail_in = 1;
if (s->stream.avail_out == 0) {
/* out of space in the output buffer so make it bigger */
- Sv_Grow(output, SvLEN(output) + bufinc) ;
+ Sv_Grow(output, SvLEN(output) + bufinc + 1) ;
cur_length += increment ;
s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ;
increment = bufinc ;