"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Compress/Zlib.pm" between
IO-Compress-2.092.tar.gz and IO-Compress-2.093.tar.gz

About: IO-Compress is a Perl interface to the zlib compression library (contains Compress-Zlib, IO-Compress-Zlib, IO-Compress-Bzip2, IO-Compress-Base).

Zlib.pm  (IO-Compress-2.092):Zlib.pm  (IO-Compress-2.093)
package Compress::Zlib; package Compress::Zlib;
require 5.006 ; require 5.006 ;
require Exporter; require Exporter;
use Carp ; use Carp ;
use IO::Handle ; use IO::Handle ;
use Scalar::Util qw(dualvar); use Scalar::Util qw(dualvar);
use IO::Compress::Base::Common 2.092 ; use IO::Compress::Base::Common 2.093 ;
use Compress::Raw::Zlib 2.092 ; use Compress::Raw::Zlib 2.093 ;
use IO::Compress::Gzip 2.092 ; use IO::Compress::Gzip 2.093 ;
use IO::Uncompress::Gunzip 2.092 ; use IO::Uncompress::Gunzip 2.093 ;
use strict ; use strict ;
use warnings ; use warnings ;
use bytes ; use bytes ;
our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = '2.092'; $VERSION = '2.093';
$XS_VERSION = $VERSION; $XS_VERSION = $VERSION;
$VERSION = eval $VERSION; $VERSION = eval $VERSION;
@ISA = qw(Exporter); @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export # Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead. # names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants. # Do not simply export all your public functions/methods/constants.
@EXPORT = qw( @EXPORT = qw(
deflateInit inflateInit deflateInit inflateInit
skipping to change at line 460 skipping to change at line 460
sub inflate sub inflate
{ {
my $self = shift ; my $self = shift ;
my $output ; my $output ;
my $status = $self->SUPER::inflate($_[0], $output) ; my $status = $self->SUPER::inflate($_[0], $output) ;
wantarray ? ($output, $status) : $output ; wantarray ? ($output, $status) : $output ;
} }
package Compress::Zlib ; package Compress::Zlib ;
use IO::Compress::Gzip::Constants 2.092 ; use IO::Compress::Gzip::Constants 2.093 ;
sub memGzip($) sub memGzip($)
{ {
_set_gzerr(0); _set_gzerr(0);
my $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND|FLAG_CRC, my $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND|FLAG_CRC,
Z_BEST_COMPRESSION, Z_BEST_COMPRESSION,
Z_DEFLATED, Z_DEFLATED,
-MAX_WBITS(), -MAX_WBITS(),
MAX_MEM_LEVEL, MAX_MEM_LEVEL,
Z_DEFAULT_STRATEGY, Z_DEFAULT_STRATEGY,
 End of changes. 3 change blocks. 
6 lines changed or deleted 6 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)