r23297 - in /trunk/libio-compress-base-perl: ./ debian/ lib/IO/Compress/ lib/IO/Compress/Base/ lib/IO/Uncompress/ private/ t/compress/

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Wed Jul 16 17:13:22 UTC 2008


Author: dmn
Date: Wed Jul 16 17:13:19 2008
New Revision: 23297

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23297
Log:
New upstream release

Modified:
    trunk/libio-compress-base-perl/Changes
    trunk/libio-compress-base-perl/META.yml
    trunk/libio-compress-base-perl/README
    trunk/libio-compress-base-perl/debian/changelog
    trunk/libio-compress-base-perl/lib/IO/Compress/Base.pm
    trunk/libio-compress-base-perl/lib/IO/Compress/Base/Common.pm
    trunk/libio-compress-base-perl/lib/IO/Uncompress/AnyUncompress.pm
    trunk/libio-compress-base-perl/lib/IO/Uncompress/Base.pm
    trunk/libio-compress-base-perl/private/MakeUtil.pm
    trunk/libio-compress-base-perl/t/compress/destroy.pl
    trunk/libio-compress-base-perl/t/compress/generic.pl

Modified: trunk/libio-compress-base-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/Changes?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/Changes (original)
+++ trunk/libio-compress-base-perl/Changes Wed Jul 16 17:13:19 2008
@@ -1,6 +1,17 @@
 CHANGES
 -------
 
+
+  2.012 15 July 2008
+
+      * IO::Compress::Base 
+        - Silenced an uninitialised value warning when reading a line
+          at a time from a zip file where the content uses ZIP_CM_STORE. 
+          [Problem spotted & fixed by Jeff Holt]
+
+      * IO::Compress::Base & IO::Uncompress::Base
+        - local-ise $!, $? et al in the DESTROY methods.
+          
   2.011 17 May 2008
 
       * IO::Compress::Base

Modified: trunk/libio-compress-base-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/META.yml?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/META.yml (original)
+++ trunk/libio-compress-base-perl/META.yml Wed Jul 16 17:13:19 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                IO-Compress-Base
-version:             2.011
+version:             2.012
 abstract:            Base Class for IO::Compress modules 
 license:             perl
 author:              

Modified: trunk/libio-compress-base-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/README?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/README (original)
+++ trunk/libio-compress-base-perl/README Wed Jul 16 17:13:19 2008
@@ -1,9 +1,9 @@
 
                              IO-Compress-Base
 
-                             Version 2.011
+                             Version 2.012
 
-                               17th May 2008
+                              15th July 2008
 
        Copyright (c) 2005-2008 Paul Marquess. All rights reserved.
           This program is free software; you can redistribute it
@@ -76,7 +76,7 @@
         If you haven't installed IO-Compress-Base then search IO::Compress::Base.pm
         for a line like this:
 
-          $VERSION = "2.011" ;
+          $VERSION = "2.012" ;
 
  2. If you are having problems building IO-Compress-Base, send me a
     complete log of what happened. Start by unpacking the IO-Compress-Base

Modified: trunk/libio-compress-base-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/debian/changelog?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/debian/changelog (original)
+++ trunk/libio-compress-base-perl/debian/changelog Wed Jul 16 17:13:19 2008
@@ -1,3 +1,9 @@
+libio-compress-base-perl (2.012-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org>  Wed, 16 Jul 2008 20:10:42 +0300
+
 libio-compress-base-perl (2.011-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libio-compress-base-perl/lib/IO/Compress/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/lib/IO/Compress/Base.pm?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/lib/IO/Compress/Base.pm (original)
+++ trunk/libio-compress-base-perl/lib/IO/Compress/Base.pm Wed Jul 16 17:13:19 2008
@@ -6,7 +6,7 @@
 use strict ;
 use warnings;
 
-use IO::Compress::Base::Common 2.011 ;
+use IO::Compress::Base::Common 2.012 ;
 
 use IO::File ;
 use Scalar::Util qw(blessed readonly);
@@ -20,7 +20,7 @@
 our (@ISA, $VERSION);
 @ISA    = qw(Exporter IO::File);
 
-$VERSION = '2.011';
+$VERSION = '2.012';
 
 #Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
 
@@ -547,6 +547,8 @@
 sub DESTROY
 {
     my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+    
     $self->close() ;
 
     # TODO - memory leak with 5.8.0 - this isn't called until 
@@ -975,4 +977,3 @@
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
 
-

Modified: trunk/libio-compress-base-perl/lib/IO/Compress/Base/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/lib/IO/Compress/Base/Common.pm?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/lib/IO/Compress/Base/Common.pm (original)
+++ trunk/libio-compress-base-perl/lib/IO/Compress/Base/Common.pm Wed Jul 16 17:13:19 2008
@@ -11,7 +11,7 @@
 require Exporter;
 our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
 @ISA = qw(Exporter);
-$VERSION = '2.011';
+$VERSION = '2.012';
 
 @EXPORT = qw( isaFilehandle isaFilename whatIsInput whatIsOutput 
               isaFileGlobString cleanFileGlobString oneTarget

Modified: trunk/libio-compress-base-perl/lib/IO/Uncompress/AnyUncompress.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/lib/IO/Uncompress/AnyUncompress.pm?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/lib/IO/Uncompress/AnyUncompress.pm (original)
+++ trunk/libio-compress-base-perl/lib/IO/Uncompress/AnyUncompress.pm Wed Jul 16 17:13:19 2008
@@ -4,16 +4,16 @@
 use warnings;
 use bytes;
 
-use IO::Compress::Base::Common 2.011 qw(createSelfTiedObject);
-
-use IO::Uncompress::Base 2.011 ;
+use IO::Compress::Base::Common 2.012 qw(createSelfTiedObject);
+
+use IO::Uncompress::Base 2.012 ;
 
 
 require Exporter ;
 
 our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
 
-$VERSION = '2.011';
+$VERSION = '2.012';
 $AnyUncompressError = '';
 
 @ISA = qw( Exporter IO::Uncompress::Base );
@@ -27,18 +27,18 @@
 
 BEGIN
 {
-   eval ' use IO::Uncompress::Adapter::Inflate 2.011 ;';
-   eval ' use IO::Uncompress::Adapter::Bunzip2 2.011 ;';
-   eval ' use IO::Uncompress::Adapter::LZO 2.011 ;';
-   eval ' use IO::Uncompress::Adapter::Lzf 2.011 ;';
-
-   eval ' use IO::Uncompress::Bunzip2 2.011 ;';
-   eval ' use IO::Uncompress::UnLzop 2.011 ;';
-   eval ' use IO::Uncompress::Gunzip 2.011 ;';
-   eval ' use IO::Uncompress::Inflate 2.011 ;';
-   eval ' use IO::Uncompress::RawInflate 2.011 ;';
-   eval ' use IO::Uncompress::Unzip 2.011 ;';
-   eval ' use IO::Uncompress::UnLzf 2.011 ;';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.012 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.012 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.012 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.012 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.012 ;';
+   eval ' use IO::Uncompress::UnLzop 2.012 ;';
+   eval ' use IO::Uncompress::Gunzip 2.012 ;';
+   eval ' use IO::Uncompress::Inflate 2.012 ;';
+   eval ' use IO::Uncompress::RawInflate 2.012 ;';
+   eval ' use IO::Uncompress::Unzip 2.012 ;';
+   eval ' use IO::Uncompress::UnLzf 2.012 ;';
 }
 
 sub new
@@ -56,7 +56,7 @@
 
 sub getExtraParams
 {
-    use IO::Compress::Base::Common 2.011 qw(:Parse);
+    use IO::Compress::Base::Common 2.012 qw(:Parse);
     return ( 'RawInflate' => [1, 1, Parse_boolean,  0] ) ;
 }
 

Modified: trunk/libio-compress-base-perl/lib/IO/Uncompress/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/lib/IO/Uncompress/Base.pm?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/lib/IO/Uncompress/Base.pm (original)
+++ trunk/libio-compress-base-perl/lib/IO/Uncompress/Base.pm Wed Jul 16 17:13:19 2008
@@ -9,12 +9,12 @@
 @ISA    = qw(Exporter IO::File);
 
 
-$VERSION = '2.011';
+$VERSION = '2.012';
 
 use constant G_EOF => 0 ;
 use constant G_ERR => -1 ;
 
-use IO::Compress::Base::Common 2.011 ;
+use IO::Compress::Base::Common 2.012 ;
 #use Parse::Parameters ;
 
 use IO::File ;
@@ -856,7 +856,7 @@
         $self->postBlockChk($buffer, $before_len) == STATUS_OK
             or return G_ERR;
 
-        $buf_len = length($$buffer) - $before_len;
+        $buf_len = defined $$buffer ? length($$buffer) - $before_len : 0;
     
         *$self->{CompSize}->add($beforeC_len - length $temp_buf) ;
 
@@ -1290,6 +1290,8 @@
 sub DESTROY
 {
     my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+
     $self->close() ;
 }
 
@@ -1451,4 +1453,3 @@
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.
 
-

Modified: trunk/libio-compress-base-perl/private/MakeUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/private/MakeUtil.pm?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/private/MakeUtil.pm (original)
+++ trunk/libio-compress-base-perl/private/MakeUtil.pm Wed Jul 16 17:13:19 2008
@@ -49,6 +49,11 @@
 
     my @files = getPerlFiles('MANIFEST');
 
+    # Note: Once you remove all the layers of shell/makefile escaping 
+    # the regular expression below reads
+    #
+    #    /^\s*local\s*\(\s*\$^W\s*\)/
+    #
     my $postamble = '
 
 MyTrebleCheck:

Modified: trunk/libio-compress-base-perl/t/compress/destroy.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/t/compress/destroy.pl?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/t/compress/destroy.pl (original)
+++ trunk/libio-compress-base-perl/t/compress/destroy.pl Wed Jul 16 17:13:19 2008
@@ -17,7 +17,7 @@
     $extra = 1
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
-    plan tests => 7 + $extra ;
+    plan tests => 15 + $extra ;
 
     use_ok('IO::File') ;
 }
@@ -73,6 +73,43 @@
 
         ok anyUncompress($name) eq $hello ;
     }
+    
+    {
+        title "Testing DESTROY doesn't clobber \$! etc ";
+
+        my $lex = new LexFile my $name ;
+
+        my $out;
+        my $result;
+        
+        {
+            ok my $z = new $CompressClass($name); 
+            $z->write("abc") ;
+            $! = 22 ;
+
+            cmp_ok $!, '==', 22, '  $! is 22';
+        }
+        
+        cmp_ok $!, '==', 22, "  \$! has not been changed by $CompressClass destructor";
+
+                
+        {
+                my $uncomp;
+                ok my $x = new $UncompressClass($name, -Append => 1)  ;
+                
+                my $len ;
+                1 while ($len = $x->read($result)) > 0 ;
+                
+                $! = 22 ;
+
+                cmp_ok $!, '==', 22, '  $! is 22';
+        }    
+           
+        cmp_ok $!, '==', 22, "  \$! has not been changed by $UncompressClass destructor";
+                
+        is $result, "abc", "  Got uncompressed content ok";
+ 
+    }
 }
 
 1;

Modified: trunk/libio-compress-base-perl/t/compress/generic.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-compress-base-perl/t/compress/generic.pl?rev=23297&op=diff
==============================================================================
--- trunk/libio-compress-base-perl/t/compress/generic.pl (original)
+++ trunk/libio-compress-base-perl/t/compress/generic.pl Wed Jul 16 17:13:19 2008
@@ -118,6 +118,7 @@
         }
 
     }
+
 
     {
         title "Testing $CompressClass and $UncompressClass";




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