Upgrade to Compress::Zlib 1.39

p4raw-id: //depot/perl@25512

diff --git a/ext/Compress/Zlib/Changes b/ext/Compress/Zlib/Changes
index 3c55bf1..61956b2 100644 (file)
--- a/ext/Compress/Zlib/Changes
+++ b/ext/Compress/Zlib/Changes
@@ -1,6 +1,10 @@
 CHANGES
 -------
 
+  1.39 - 15 September 2005
+
+      * Fixed dTHX macro for 5.00503 on FreeBSD
+
   1.38 - 6 September 2005
 
       * Integrate core change 25304 -- Symbian Update

diff --git a/ext/Compress/Zlib/README b/ext/Compress/Zlib/README
index 9b458c1..fcfae01 100644 (file)
--- a/ext/Compress/Zlib/README
+++ b/ext/Compress/Zlib/README
@@ -1,8 +1,8 @@
                                  Compress::Zlib
 
-                                  Version 1.38
+                                  Version 1.39
 
-                                6 September 2005
+                                15 September 2005
 
           Copyright (c) 1995-2005 Paul Marquess. All rights reserved.
          This program is free software; you can redistribute it and/or

diff --git a/ext/Compress/Zlib/Zlib.pm b/ext/Compress/Zlib/Zlib.pm
index 063c89b..3f40987 100644 (file)
--- a/ext/Compress/Zlib/Zlib.pm
+++ b/ext/Compress/Zlib/Zlib.pm
@@ -1,7 +1,7 @@
 # File   : Zlib.pm
 # Author  : Paul Marquess
-# Created : 6 September 2005
-# Version : 1.38
+# Created : 7 September 2005
+# Version : 1.39
 #
 #     Copyright (c) 1995-2005 Paul Marquess. All rights reserved.
 #     This program is free software; you can redistribute it and/or
@@ -21,7 +21,7 @@ use warnings ;
 our ($VERSION, @ISA, @EXPORT, $AUTOLOAD);
 our ($deflateDefault, $deflateParamsDefault, $inflateDefault);
 
-$VERSION = "1.38" ;
+$VERSION = "1.39" ;
 
 @ISA = qw(Exporter);
 # Items to export into callers namespace by default. Note: do not export

diff --git a/ext/Compress/Zlib/Zlib.xs b/ext/Compress/Zlib/Zlib.xs
index ed3fb48..2528ab6 100644 (file)
--- a/ext/Compress/Zlib/Zlib.xs
+++ b/ext/Compress/Zlib/Zlib.xs
@@ -44,10 +44,6 @@
 #    define newSVuv    newSViv
 #endif
 
-#ifndef dTHX
-#   define dTHX
-#endif
-
 typedef struct di_stream {
     z_stream stream;
     uLong    bufsize; 
@@ -125,7 +121,9 @@ SetGzErrorNo(error_no)
 int error_no ;
 #endif
 {
+#ifdef dTHX    
     dTHX;
+#endif    
     char * errstr ;
     SV * gzerror_sv = perl_get_sv(GZERRNO, FALSE) ;
   
@@ -266,7 +264,9 @@ gzreadline(file, output)
   SV * output ;
 #endif
 {
+#ifdef dTHX    
     dTHX;
+#endif    
     SV * store = file->buffer ;
     char *nl = "\n"; 
     char *p;
@@ -320,7 +320,9 @@ SV * sv ;
 char * string;
 #endif
 {
+#ifdef dTHX    
     dTHX;
+#endif    
     if (SvROK(sv)) {
        sv = SvRV(sv) ;
        switch(SvTYPE(sv)) {