Update Compress-Raw-Zlib to CPAN version 2.057
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 10 Nov 2012 23:48:16 +0000 (23:48 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 11 Nov 2012 00:18:54 +0000 (00:18 +0000)
  [DELTA]

  2.057 10 November 2012

      * Compress::Raw::Zlib needs to use PERL_NO_GET_CONTEXT
        [#80319]

      * Install to 'site' instead of 'perl' when perl version is 5.11+
        [#79812]

      * update to ppport.h that includes SvPV_nomg_nolen
        [#78079]

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

index ca97d64..6029258 100755 (executable)
@@ -374,7 +374,7 @@ use File::Glob qw(:case);
 
     'Compress::Raw::Zlib' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.056.tar.gz',
+        'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.057.tar.gz',
 
         'FILES'    => q[cpan/Compress-Raw-Zlib],
         'EXCLUDED' => [
index 75bd7b7..924ff49 100644 (file)
@@ -1,6 +1,17 @@
 CHANGES
 -------
 
+  2.057 10 November 2012
+
+      * Compress::Raw::Zlib needs to use PERL_NO_GET_CONTEXT
+        [#80319]
+
+      * Install to 'site' instead of 'perl' when perl version is 5.11+
+        [#79812]
+
+      * update to ppport.h that includes SvPV_nomg_nolen
+        [#78079] 
+      
   2.056 10 August 2012
 
       * Fix C++ build issue
index 92c2f9c..2b7c261 100644 (file)
@@ -82,7 +82,7 @@ WriteMakefile(
         : (LIBS => [ "-L$ZLIB_LIB -lz " ])
     ),
       
-    INSTALLDIRS => ($] >= 5.009 ? 'perl' : 'site'),
+    INSTALLDIRS => ($] >= 5.009 && $] < 5.011 ? 'perl' : 'site'),
 
     META_MERGE => {
         no_index => {
@@ -102,7 +102,6 @@ sub version_Macro
     return [ "#if ZLIB_VERNUM >= 0x$ver\n", "#endif\n" ];
 }
 
-
 my @names = qw(
 
     DEF_WBITS
index 6dcec52..5ed120e 100644 (file)
@@ -1,9 +1,9 @@
 
                             Compress-Raw-Zlib
 
-                         Version 2.055
+                         Version 2.057
 
-                              5th August 2012
+                            10th 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.055" ;
+          $VERSION = "2.057" ;
 
      c. The version of zlib you have used.
         If you have successfully installed Compress-Raw-Zlib, this one-liner
index 9f1d7a1..c6558c0 100644 (file)
@@ -26,7 +26,7 @@
 */
 
 
-
+#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -940,7 +940,7 @@ deflate (s, buf, output)
     if (DO_UTF8(buf) && !sv_utf8_downgrade(buf, 1))
          croak("Wide character in Compress::Raw::Zlib::Deflate::deflate input parameter");
 #endif         
-    s->stream.next_in = (Bytef*)SvPVbyte_nolen(buf) ;
+    s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ;
     s->stream.avail_in = SvCUR(buf) ;
     
     if (s->flags & FLAG_CRC32)
@@ -1323,7 +1323,6 @@ inflate (s, buf, output, eof=FALSE)
     uInt       cur_length = 0;
     uInt       prefix_length = 0;
     int            increment = 0;
-    STRLEN  stmp    = NO_INIT
     uLong     bufinc = NO_INIT
   PREINIT:
 #ifdef UTF8_AVAILABLE    
@@ -1342,7 +1341,7 @@ inflate (s, buf, output, eof=FALSE)
 #endif         
     
     /* initialise the input buffer */
-    s->stream.next_in = (Bytef*)SvPVbyte_force(buf, stmp) ;
+    s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ;
     s->stream.avail_in = SvCUR(buf) ;
        
     /* and retrieve the output buffer */
@@ -1374,7 +1373,7 @@ inflate (s, buf, output, eof=FALSE)
         */
         if (SvLEN(output) > cur_length + 1)
         {
-            s->stream.next_out = (Bytef*) SvPVX(output) + cur_length;
+            s->stream.next_out = (Bytef*) SvPV_nomg_nolen(output) + cur_length;
             increment = SvLEN(output) -  cur_length - 1;
             s->stream.avail_out = increment;
         }
@@ -1522,7 +1521,6 @@ DualType
 inflateSync (s, buf)
     Compress::Raw::Zlib::inflateStream s
     SV *       buf
-    STRLEN stmp      = NO_INIT
   CODE:
   
     /* If the buffer is a reference, dereference it */
@@ -1533,7 +1531,7 @@ inflateSync (s, buf)
 #endif         
     
     /* initialise the input buffer */
-    s->stream.next_in = (Bytef*)SvPVbyte_force(buf, stmp) ;
+    s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ;
     s->stream.avail_in = SvCUR(buf) ;
        
     /* inflateSync doesn't create any output */
@@ -1694,7 +1692,6 @@ scan(s, buf, out=NULL, eof=FALSE)
     bool       eof
     bool       eof_mode = FALSE;
     int    start_len = NO_INIT
-    STRLEN stmp      = NO_INIT
   CODE:
     /* If the input buffer is a reference, dereference it */
 #ifndef MAGIC_APPEND
@@ -1707,7 +1704,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*)SvPVbyte_force(buf, stmp) ;
+    s->stream.next_in = (Bytef*)SvPV_nomg_nolen(buf) ;
     s->stream.avail_in = SvCUR(buf) ;
     start_len = s->stream.avail_in ;
     s->bytesInflated = 0 ; 
index 08990f5..1151cc9 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.056';
+$VERSION = '2.057';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;