"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/02_methods.t" between
Archive-Tar-2.36.tar.gz and Archive-Tar-2.38.tar.gz

About: Archive-Tar is a Perl module for creation and in-memory manipulation of tar files.

02_methods.t  (Archive-Tar-2.36):02_methods.t  (Archive-Tar-2.38)
skipping to change at line 796 skipping to change at line 796
### bzip2 ### bzip2
} elsif( $file =~ /.tbz$/ ) { } elsif( $file =~ /.tbz$/ ) {
require IO::Uncompress::Bunzip2; require IO::Uncompress::Bunzip2;
$fh = IO::Uncompress::Bunzip2->new( $file ) $fh = IO::Uncompress::Bunzip2->new( $file )
or warn( "Error opening '$file' with IO::Uncompress::Bunzip2" ), ret urn or warn( "Error opening '$file' with IO::Uncompress::Bunzip2" ), ret urn
### gzip ### gzip
} else { } else {
require IO::Zlib; require IO::Zlib;
$fh = new IO::Zlib; $fh = IO::Zlib->new();
$fh->open( $file, READ_ONLY->(1) ) $fh->open( $file, READ_ONLY->(1) )
or warn( "Error opening '$file' with IO::Zlib" ), return or warn( "Error opening '$file' with IO::Zlib" ), return
} }
my $str; my $str;
my $buff; my $buff;
$str .= $buff while $fh->read( $buff, 4096 ) > 0; $str .= $buff while $fh->read( $buff, 4096 ) > 0;
$fh->close(); $fh->close();
return $str; return $str;
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

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