Update Compress-Raw-Zlib to CPAN version 2.059
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 25 Nov 2012 17:39:29 +0000 (17:39 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 25 Nov 2012 17:39:29 +0000 (17:39 +0000)
  [DELTA]

  2.059 24 November 2012

      * Copy-on-write support
        [#81353]

Porting/Maintainers.pl
cpan/Compress-Raw-Zlib/Changes
cpan/Compress-Raw-Zlib/README
cpan/Compress-Raw-Zlib/Zlib.xs
cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm

index 7f482b3..f395c94 100755 (executable)
@@ -374,7 +374,7 @@ use File::Glob qw(:case);
 
     'Compress::Raw::Zlib' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.058.tar.gz',
+        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.059.tar.gz',
 
         'FILES'    => q[cpan/Compress-Raw-Zlib],
         'EXCLUDED' => [
index a6014fc..0dfbc11 100644 (file)
@@ -1,6 +1,11 @@
 CHANGES
 -------
 
+  2.059 24 November 2012
+
+      * Copy-on-write support
+        [#81353]
+
   2.058 12 November 2012
 
       * No Changes
index 6970726..4368080 100644 (file)
@@ -1,9 +1,9 @@
 
                             Compress-Raw-Zlib
 
-                         Version 2.058
+                         Version 2.059
 
-                            12th November 2012
+                            25th November 2012
 
        Copyright (c) 2005-2012 Paul Marquess. All rights reserved.
           This program is free software; you can redistribute it
@@ -355,7 +355,7 @@ To help me help you, I need all of the following information:
         If you haven't installed Compress-Raw-Zlib then search Compress::Raw::Zlib.pm
         for a line like this:
 
-          $VERSION = "2.058" ;
+          $VERSION = "2.059" ;
 
      c. The version of zlib you have used.
         If you have successfully installed Compress-Raw-Zlib, this one-liner
index c6558c0..00e05b4 100644 (file)
@@ -1323,18 +1323,22 @@ inflate (s, buf, output, eof=FALSE)
     uInt       cur_length = 0;
     uInt       prefix_length = 0;
     int            increment = 0;
-    uLong     bufinc = NO_INIT
+    uLong   bufinc = NO_INIT
+    STRLEN  na = NO_INIT ;
   PREINIT:
 #ifdef UTF8_AVAILABLE    
     bool       out_utf8  = FALSE;
 #endif    
-  CODE:
+  CODE: 
     bufinc = s->bufsize;
     /* If the buffer is a reference, dereference it */
     buf = deRef(buf, "inflate") ;
 
-    if (s->flags & FLAG_CONSUME_INPUT && SvREADONLY(buf))
-        croak("Compress::Raw::Zlib::Inflate::inflate input parameter cannot be read-only when ConsumeInput is specified");
+    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, na);
+    }
 #ifdef UTF8_AVAILABLE    
     if (DO_UTF8(buf) && !sv_utf8_downgrade(buf, 1))
          croak("Wide character in Compress::Raw::Zlib::Inflate::inflate input parameter");
index a3063ce..c1ba827 100644 (file)
@@ -11,7 +11,7 @@ use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS );
 
-$VERSION = '2.058';
+$VERSION = '2.059';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;