From 2f54119d20adde7812afae1aa17e80481871bc2f Mon Sep 17 00:00:00 2001
From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sun, 25 Nov 2012 17:39:29 +0000
Subject: [PATCH] Update Compress-Raw-Zlib to CPAN version 2.059

  [DELTA]

  2.059 24 November 2012

      * Copy-on-write support
        [#81353]
---
 Porting/Maintainers.pl                          |  2 +-
 cpan/Compress-Raw-Zlib/Changes                  |  5 +++++
 cpan/Compress-Raw-Zlib/README                   |  6 +++---
 cpan/Compress-Raw-Zlib/Zlib.xs                  | 12 ++++++++----
 cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm |  2 +-
 5 files changed, 18 insertions(+), 9 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 7f482b3..f395c94 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -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' => [
diff --git a/cpan/Compress-Raw-Zlib/Changes b/cpan/Compress-Raw-Zlib/Changes
index a6014fc..0dfbc11 100644
--- a/cpan/Compress-Raw-Zlib/Changes
+++ b/cpan/Compress-Raw-Zlib/Changes
@@ -1,6 +1,11 @@
 CHANGES
 -------
 
+  2.059 24 November 2012
+
+      * Copy-on-write support
+        [#81353]
+
   2.058 12 November 2012
 
       * No Changes
diff --git a/cpan/Compress-Raw-Zlib/README b/cpan/Compress-Raw-Zlib/README
index 6970726..4368080 100644
--- a/cpan/Compress-Raw-Zlib/README
+++ b/cpan/Compress-Raw-Zlib/README
@@ -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
diff --git a/cpan/Compress-Raw-Zlib/Zlib.xs b/cpan/Compress-Raw-Zlib/Zlib.xs
index c6558c0..00e05b4 100644
--- a/cpan/Compress-Raw-Zlib/Zlib.xs
+++ b/cpan/Compress-Raw-Zlib/Zlib.xs
@@ -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");
diff --git a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm
index a3063ce..c1ba827 100644
--- a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm
+++ b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm
@@ -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;
 
-- 
2.7.4