This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Compress-Raw-Zlib to CPAN version 2.066
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 27 Sep 2014 12:03:48 +0000 (13:03 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 27 Sep 2014 12:03:48 +0000 (13:03 +0100)
  [DELTA]

  2.066 21 Sept 2014

      * Another COW violation
        [#98069]

      * misleading nesting/indentation (found by Coverity)
        [#95405]

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

index 0fc0a9f..531fe58 100755 (executable)
@@ -213,7 +213,7 @@ use File::Glob qw(:case);
     },
 
     'Compress::Raw::Zlib' => {
-        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.065.tar.gz',
+        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.066.tar.gz',
 
         'FILES'    => q[cpan/Compress-Raw-Zlib],
         'EXCLUDED' => [
index 46d4af3..2eb78c0 100644 (file)
@@ -1755,7 +1755,7 @@ scan(s, buf, out=NULL, eof=FALSE)
         croak("Wide character in Compress::Raw::Zlib::InflateScan::scan input parameter");
 #endif         
     /* initialise the input buffer */
-    s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ;
+    s->stream.next_in = (Bytef*)SvPV_force_nomg_nolen(buf) ;
     s->stream.avail_in = SvCUR(buf) ;
     start_len = s->stream.avail_in ;
     s->bytesInflated = 0 ; 
@@ -1841,8 +1841,8 @@ scan(s, buf, out=NULL, eof=FALSE)
             SvCUR_set(buf, in) ;
             if (in)
                 Move(s->stream.next_in, SvPVX(buf), in, char) ;        
-                *SvEND(buf) = '\0';
-                SvSETMAGIC(buf);
+            *SvEND(buf) = '\0';
+            SvSETMAGIC(buf);
         }
     }
 #endif
index ae71128..4a4ad1d 100644 (file)
@@ -10,7 +10,7 @@ use warnings ;
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS);
 
-$VERSION = '2.065';
+$VERSION = '2.066';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;