This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Compress-Raw-Bzip2 to CPAN version 2.059
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 25 Nov 2012 17:38:06 +0000 (17:38 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 25 Nov 2012 17:38:06 +0000 (17:38 +0000)
  [DELTA]

  2.059 24 November 2012

      * Copy-on-write support
        [#81352]

Porting/Maintainers.pl
cpan/Compress-Raw-Bzip2/Bzip2.xs
cpan/Compress-Raw-Bzip2/Changes
cpan/Compress-Raw-Bzip2/README
cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm
cpan/Compress-Raw-Bzip2/t/000prereq.t

index 02294cc..7f482b3 100755 (executable)
@@ -363,7 +363,7 @@ use File::Glob qw(:case);
 
     'Compress::Raw::Bzip2' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.058.tar.gz',
+        'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.059.tar.gz',
         'FILES'        => q[cpan/Compress-Raw-Bzip2],
         'EXCLUDED'     => [
             qr{^t/Test/},
index d430b24..ef19280 100644 (file)
@@ -724,6 +724,7 @@ bzinflate (s, buf, output)
     uInt       prefix_length = 0;
     uInt       increment = 0;
     uInt    bufinc = NO_INIT
+    STRLEN  na = NO_INIT ;
   PREINIT:
 #ifdef UTF8_AVAILABLE    
     bool       out_utf8  = FALSE;
@@ -733,8 +734,11 @@ bzinflate (s, buf, output)
     /* If the buffer is a reference, dereference it */
     buf = deRef(buf, "bzinflate") ;
 
-    if (s->flags & FLAG_CONSUME_INPUT && SvREADONLY(buf))
-        croak(UNCOMPRESS_CLASS "::bzinflate input parameter cannot be read-only when ConsumeInput is specified");
+    if (s->flags & FLAG_CONSUME_INPUT) {
+        if (SvREADONLY(buf))
+            croak(UNCOMPRESS_CLASS "::bzinflate 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 " UNCOMPRESS_CLASS "::bzinflate input parameter");
index 3a8882f..583a88f 100644 (file)
@@ -1,6 +1,11 @@
 CHANGES
 -------
 
+  2.059 24 November 2012
+
+      * Copy-on-write support
+        [#81352]
+
   2.058 12 November 2012
 
       * No Changes
index 6f3d8c4..6475aa2 100644 (file)
@@ -1,9 +1,9 @@
 
                             Compress-Raw-Bzip2
 
-                         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
@@ -164,7 +164,7 @@ To help me help you, I need all of the following information:
         If you haven't installed Compress-Raw-Bzip2 then search Compress::Raw::Bzip2.pm
         for a line like this:
 
-          $VERSION = "2.058" ;
+          $VERSION = "2.059" ;
 
      c. The version of bzip2 you have used.
         If you have successfully installed Compress-Raw-Bzip2, this one-liner
index 7d04fe5..450fa42 100644 (file)
@@ -12,7 +12,7 @@ use Carp ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
 
-$VERSION = '2.058';
+$VERSION = '2.059';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
index a485cf3..f5186e9 100644 (file)
@@ -19,7 +19,7 @@ BEGIN
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
 
-    my $VERSION = '2.058';
+    my $VERSION = '2.059';
     my @NAMES = qw(
                        
                        );