"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/IO/Compress/Base.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).

Base.pm  (IO-Compress-2.092):Base.pm  (IO-Compress-2.093)
package IO::Compress::Base ; package IO::Compress::Base ;
require 5.006 ; require 5.006 ;
use strict ; use strict ;
use warnings; use warnings;
use IO::Compress::Base::Common 2.092 ; use IO::Compress::Base::Common 2.093 ;
use IO::File (); ; use IO::File (); ;
use Scalar::Util (); use Scalar::Util ();
#use File::Glob; #use File::Glob;
#require Exporter ; #require Exporter ;
use Carp() ; use Carp() ;
use Symbol(); use Symbol();
#use bytes; #use bytes;
our (@ISA, $VERSION); our (@ISA, $VERSION);
@ISA = qw(IO::File Exporter); @ISA = qw(IO::File Exporter);
$VERSION = '2.092'; $VERSION = '2.093';
#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 li ne 16. #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 li ne 16.
sub saveStatus sub saveStatus
{ {
my $self = shift ; my $self = shift ;
${ *$self->{ErrorNo} } = shift() + 0 ; ${ *$self->{ErrorNo} } = shift() + 0 ;
${ *$self->{Error} } = '' ; ${ *$self->{Error} } = '' ;
return ${ *$self->{ErrorNo} } ; return ${ *$self->{ErrorNo} } ;
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

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