--- Compress-LZF/LZF.xs 2015/06/27 19:52:44 1.32 +++ Compress-LZF/LZF.xs 2015/06/28 18:18:03 1.33 @@ -99,12 +99,12 @@ if (!state) croak ("Compress::LZF unable to allocate memory for compression state"); - if (usize > 1000) perlinterp_release (); + if (usize > 2000) perlinterp_release (); /* 11 bytes is the smallest compressible string */ csize = usize < 11 ? 0 : (best ? lzf_compress_best (src, usize, dst + skip, usize - skip) : lzf_compress (src, usize, dst + skip, usize - skip, *state)); - if (usize > 1000) perlinterp_acquire (); + if (usize > 2000) perlinterp_acquire (); Safefree (state); @@ -203,9 +203,9 @@ SvPOK_only (ret); dst = SvPVX (ret); - if (usize > 2000) perlinterp_release (); + if (usize > 4000) perlinterp_release (); res = lzf_decompress (src, csize, dst, usize) != usize; - if (usize > 2000) perlinterp_acquire (); + if (usize > 4000) perlinterp_acquire (); if (res) {