r7871 - in /branches/upstream/libcompress-zlib-perl/current: Changes META.yml README lib/Compress/Zlib.pm t/03zlib-v1.t t/14gzopen.t

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Sat Sep 22 16:57:38 UTC 2007


Author: dmn
Date: Sat Sep 22 16:57:37 2007
New Revision: 7871

URL: http://svn.debian.org/wsvn/?sc=1&rev=7871
Log:
[svn-upgrade] Integrating new upstream version, libcompress-zlib-perl (2.007)

Modified:
    branches/upstream/libcompress-zlib-perl/current/Changes
    branches/upstream/libcompress-zlib-perl/current/META.yml
    branches/upstream/libcompress-zlib-perl/current/README
    branches/upstream/libcompress-zlib-perl/current/lib/Compress/Zlib.pm
    branches/upstream/libcompress-zlib-perl/current/t/03zlib-v1.t
    branches/upstream/libcompress-zlib-perl/current/t/14gzopen.t

Modified: branches/upstream/libcompress-zlib-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/Changes?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/Changes (original)
+++ branches/upstream/libcompress-zlib-perl/current/Changes Sat Sep 22 16:57:37 2007
@@ -1,5 +1,12 @@
 CHANGES
 -------
+
+  2.007 22 September 20007
+
+      * lib/Compress/Zlib.pm -- 1.x Backward Compatability issues
+        gzclose - documented return value was wrong, should be 0 for ok.
+        gzflush - return value didn't match 1.x, should return 0 if ok.
+        [rt.cpan.org #29215] and Debian bug #440943 http://bugs.debian.org/440943
 
   2.006 1 September 20007
 

Modified: branches/upstream/libcompress-zlib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/META.yml?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/META.yml (original)
+++ branches/upstream/libcompress-zlib-perl/current/META.yml Sat Sep 22 16:57:37 2007
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Compress-Zlib
-version:             2.006
+version:             2.007
 abstract:            Interface to zlib compression library
 license:             perl
 generated_by:        ExtUtils::MakeMaker version 6.36

Modified: branches/upstream/libcompress-zlib-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/README?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/README (original)
+++ branches/upstream/libcompress-zlib-perl/current/README Sat Sep 22 16:57:37 2007
@@ -1,9 +1,9 @@
 
                              Compress::Zlib
 
-                             Version 2.006
+                             Version 2.007
 
-                            1st September 2007
+                            22nd September 2007
 
 
        Copyright (c) 1995-2007 Paul Marquess. All rights reserved.

Modified: branches/upstream/libcompress-zlib-perl/current/lib/Compress/Zlib.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/lib/Compress/Zlib.pm?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/lib/Compress/Zlib.pm (original)
+++ branches/upstream/libcompress-zlib-perl/current/lib/Compress/Zlib.pm Sat Sep 22 16:57:37 2007
@@ -18,7 +18,7 @@
 use bytes ;
 our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
 
-$VERSION = '2.006';
+$VERSION = '2.007';
 $XS_VERSION = $VERSION; 
 $VERSION = eval $VERSION;
 
@@ -242,8 +242,8 @@
 
     my $gz = $self->[0] ;
     my $status = $gz->flush($f) ;
-    _save_gzerr($gz);
-    return $status ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
 }
 
 sub Compress::Zlib::gzFile::gzclose
@@ -252,8 +252,8 @@
     my $gz = $self->[0] ;
 
     my $status = $gz->close() ;
-    _save_gzerr($gz);
-    return ! $status ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
 }
 
 sub Compress::Zlib::gzFile::gzeof
@@ -806,7 +806,7 @@
 can seriously degrade the level of compression achieved. See the C<zlib>
 documentation for details.
 
-Returns 1 on success, 0 on failure.
+Returns 0 on success.
 
 
 =item B<$offset = $gz-E<gt>gztell() ;>
@@ -831,7 +831,7 @@
 Closes the compressed file. Any pending data is flushed to the file
 before it is closed.
 
-Returns 1 on success, 0 on failure.
+Returns 0 on success.
 
 =item B<$gz-E<gt>gzsetparams($level, $strategy>
 

Modified: branches/upstream/libcompress-zlib-perl/current/t/03zlib-v1.t
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/t/03zlib-v1.t?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/t/03zlib-v1.t (original)
+++ branches/upstream/libcompress-zlib-perl/current/t/03zlib-v1.t Sat Sep 22 16:57:37 2007
@@ -23,10 +23,10 @@
 
     my $count = 0 ;
     if ($] < 5.005) {
-        $count = 383 ;
+        $count = 390 ;
     }
     else {
-        $count = 394 ;
+        $count = 401 ;
     }
 
 
@@ -1168,3 +1168,21 @@
     is slurp($name), $data1 . $data2 . $trailing, "got expected data from slurp" ;
     is trickle($name), $data1 . $data2 . $trailing, "got expected data from trickle" ;
 }
+
+{
+    title "gzclose & gzflush return codes";
+    # rt.29215
+
+    my $lex = new LexFile my $name ;
+    my $data1 = "the is some text";
+    my $status;
+
+    $fil = gzopen($name, "wb") ;
+    ok $fil, "opened first file"; 
+    is $fil->gzwrite($data1), length $data1, "write data1" ;
+    $status = $fil->gzflush(0xfff);
+    ok   $status, "flush not ok" ;
+    is $status, Z_STREAM_ERROR;
+    ok ! $fil->gzflush(), "flush ok" ;
+    ok ! $fil->gzclose(), "Closed";
+}

Modified: branches/upstream/libcompress-zlib-perl/current/t/14gzopen.t
URL: http://svn.debian.org/wsvn/branches/upstream/libcompress-zlib-perl/current/t/14gzopen.t?rev=7871&op=diff
==============================================================================
--- branches/upstream/libcompress-zlib-perl/current/t/14gzopen.t (original)
+++ branches/upstream/libcompress-zlib-perl/current/t/14gzopen.t Sat Sep 22 16:57:37 2007
@@ -95,7 +95,7 @@
 
 is $fil->gzwrite($number), $num_len, "gzwrite returned $num_len" ;
 is $gzerrno, 0, 'gzerrno is 0';
-ok $fil->gzflush(Z_FINISH) ;
+ok ! $fil->gzflush(Z_FINISH) ;
 
 is $gzerrno, 0, 'gzerrno is 0';
 




More information about the Pkg-perl-cvs-commits mailing list