From: Rafael Garcia-Suarez Date: Thu, 12 Apr 2007 14:33:33 +0000 (+0000) Subject: Upgrade to Archive::Extract 0.18 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=574b415d221495e2c3b1264776365f12a101c3df;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Archive::Extract 0.18 p4raw-id: //depot/perl@30923 --- diff --git a/lib/Archive/Extract.pm b/lib/Archive/Extract.pm index 678489a..5c96c56 100644 --- a/lib/Archive/Extract.pm +++ b/lib/Archive/Extract.pm @@ -27,7 +27,7 @@ use constant TBZ => 'tbz'; use vars qw[$VERSION $PREFER_BIN $PROGRAMS $WARN $DEBUG]; -$VERSION = '0.16'; +$VERSION = '0.18'; $PREFER_BIN = 0; $WARN = 1; $DEBUG = 0; @@ -192,7 +192,7 @@ Returns a C object on success, or false on failure. ### figure out the type, if it wasn't already specified ### unless ( $parsed->{type} ) { $parsed->{type} = - $ar =~ /.+?\.(?:tar\.gz)|tgz$/i ? TGZ : + $ar =~ /.+?\.(?:tar\.gz|tgz)$/i ? TGZ : $ar =~ /.+?\.gz$/i ? GZ : $ar =~ /.+?\.tar$/i ? TAR : $ar =~ /.+?\.(zip|jar|par)$/i ? ZIP : @@ -448,7 +448,7 @@ sub _untar { ### bzip2 support in A::T via IO::Uncompress::Bzip2 my @methods = qw[_untar_at _untar_bin]; - @methods = reverse @methods unless $PREFER_BIN; + @methods = reverse @methods if $PREFER_BIN; for my $method (@methods) { $self->_extractor($method) && return 1 if $self->$method(); @@ -1119,20 +1119,18 @@ Defaults to C. Maybe this module should use something like C to determine the type, rather than blindly trust the suffix. -=head1 AUTHORS +=head1 BUG REPORTS -This module by -Jos Boumans Ekane@cpan.orgE. +Please report bugs or other issues to Ebug-archive-extract@rt.cpan.org. -=head1 COPYRIGHT +=head1 AUTHOR + +This module by Jos Boumans Ekane@cpan.orgE. -This module is -copyright (c) 2004-2007 Jos Boumans Ekane@cpan.orgE. -All rights reserved. +=head1 COPYRIGHT -This library is free software; -you may redistribute and/or modify it under the same -terms as Perl itself. +This library is free software; you may redistribute and/or modify it +under the same terms as Perl itself. =cut diff --git a/lib/Archive/Extract/t/src/double_dir.zip.packed b/lib/Archive/Extract/t/src/double_dir.zip.packed index b6a3ec3..55fd5a6 100644 --- a/lib/Archive/Extract/t/src/double_dir.zip.packed +++ b/lib/Archive/Extract/t/src/double_dir.zip.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/double_dir.zip.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/double_dir.zip + uupacktool.pl -u lib/Archive/Extract/t/src/double_dir.zip.packed lib/Archive/Extract/t/src/double_dir.zip To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/double_dir.zip /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/double_dir.zip.packed + uupacktool.pl -p lib/Archive/Extract/t/src/double_dir.zip lib/Archive/Extract/t/src/double_dir.zip.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M4$L#!`H``````&QH,S0````````````````%`!4`>"]Y+WI55`D``PR`ST,, diff --git a/lib/Archive/Extract/t/src/x.bz2.packed b/lib/Archive/Extract/t/src/x.bz2.packed index 391d686..153e2c0 100644 --- a/lib/Archive/Extract/t/src/x.bz2.packed +++ b/lib/Archive/Extract/t/src/x.bz2.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.bz2.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.bz2 + uupacktool.pl -u lib/Archive/Extract/t/src/x.bz2.packed lib/Archive/Extract/t/src/x.bz2 To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.bz2 /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.bz2.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.bz2 lib/Archive/Extract/t/src/x.bz2.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ .0EIH.1=R13A0D``````` diff --git a/lib/Archive/Extract/t/src/x.gz.packed b/lib/Archive/Extract/t/src/x.gz.packed index e1db8bf..036efac 100644 --- a/lib/Archive/Extract/t/src/x.gz.packed +++ b/lib/Archive/Extract/t/src/x.gz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.gz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.gz + uupacktool.pl -u lib/Archive/Extract/t/src/x.gz.packed lib/Archive/Extract/t/src/x.gz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.gz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.gz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.gz lib/Archive/Extract/t/src/x.gz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ 6'XL(""66P4`"`V$``P`````````````` diff --git a/lib/Archive/Extract/t/src/x.jar.packed b/lib/Archive/Extract/t/src/x.jar.packed index e034623..caaf047 100644 --- a/lib/Archive/Extract/t/src/x.jar.packed +++ b/lib/Archive/Extract/t/src/x.jar.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.jar.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.jar + uupacktool.pl -u lib/Archive/Extract/t/src/x.jar.packed lib/Archive/Extract/t/src/x.jar To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.jar /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.jar.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.jar lib/Archive/Extract/t/src/x.jar.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M4$L#!`H```````MAQ3`````````````````!`!``8558#`!)`B%!EIO!0/4! diff --git a/lib/Archive/Extract/t/src/x.par.packed b/lib/Archive/Extract/t/src/x.par.packed index 05e9a27..dde325f 100644 --- a/lib/Archive/Extract/t/src/x.par.packed +++ b/lib/Archive/Extract/t/src/x.par.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.par.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.par + uupacktool.pl -u lib/Archive/Extract/t/src/x.par.packed lib/Archive/Extract/t/src/x.par To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.par /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.par.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.par lib/Archive/Extract/t/src/x.par.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M4$L#!`H```````MAQ3`````````````````!`!``8558#`!)`B%!EIO!0/4! diff --git a/lib/Archive/Extract/t/src/x.tar.gz.packed b/lib/Archive/Extract/t/src/x.tar.gz.packed index 8cd20e6..48ec32e 100644 --- a/lib/Archive/Extract/t/src/x.tar.gz.packed +++ b/lib/Archive/Extract/t/src/x.tar.gz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.gz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.gz + uupacktool.pl -u lib/Archive/Extract/t/src/x.tar.gz.packed lib/Archive/Extract/t/src/x.tar.gz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.gz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.gz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.tar.gz lib/Archive/Extract/t/src/x.tar.gz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M'XL(`````````^W.NPW"0!!%T2EE2YC%:[N>#7""1,"G?QM##!&.SDE&(]W@ diff --git a/lib/Archive/Extract/t/src/x.tar.packed b/lib/Archive/Extract/t/src/x.tar.packed index c3a1460..5569144 100644 --- a/lib/Archive/Extract/t/src/x.tar.packed +++ b/lib/Archive/Extract/t/src/x.tar.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar + uupacktool.pl -u lib/Archive/Extract/t/src/x.tar.packed lib/Archive/Extract/t/src/x.tar To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tar.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.tar lib/Archive/Extract/t/src/x.tar.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M80`````````````````````````````````````````````````````````` diff --git a/lib/Archive/Extract/t/src/x.tgz.packed b/lib/Archive/Extract/t/src/x.tgz.packed index aff50be..c69cc8a 100644 --- a/lib/Archive/Extract/t/src/x.tgz.packed +++ b/lib/Archive/Extract/t/src/x.tgz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tgz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tgz + uupacktool.pl -u lib/Archive/Extract/t/src/x.tgz.packed lib/Archive/Extract/t/src/x.tgz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tgz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.tgz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.tgz lib/Archive/Extract/t/src/x.tgz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:15 2007 ######################################################################### __UU__ M'XL(`````````^W.NPW"0!!%T2EE2YC%:[N>#7""1,"G?QM##!&.SDE&(]W@ diff --git a/lib/Archive/Extract/t/src/x.zip.packed b/lib/Archive/Extract/t/src/x.zip.packed index 0f54657..b911b34 100644 --- a/lib/Archive/Extract/t/src/x.zip.packed +++ b/lib/Archive/Extract/t/src/x.zip.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.zip.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.zip + uupacktool.pl -u lib/Archive/Extract/t/src/x.zip.packed lib/Archive/Extract/t/src/x.zip To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.zip /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/x.zip.packed + uupacktool.pl -p lib/Archive/Extract/t/src/x.zip lib/Archive/Extract/t/src/x.zip.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M4$L#!`H```````MAQ3`````````````````!`!``8558#`!)`B%!EIO!0/4! diff --git a/lib/Archive/Extract/t/src/y.jar.packed b/lib/Archive/Extract/t/src/y.jar.packed index dace414..edfc713 100644 --- a/lib/Archive/Extract/t/src/y.jar.packed +++ b/lib/Archive/Extract/t/src/y.jar.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.jar.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.jar + uupacktool.pl -u lib/Archive/Extract/t/src/y.jar.packed lib/Archive/Extract/t/src/y.jar To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.jar /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.jar.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.jar lib/Archive/Extract/t/src/y.jar.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M4$L#!`H``````,NBB#$````````````````"`!``>2]56`P`M%6W06Y4MT'U diff --git a/lib/Archive/Extract/t/src/y.par.packed b/lib/Archive/Extract/t/src/y.par.packed index 2f0734d..f0626f8 100644 --- a/lib/Archive/Extract/t/src/y.par.packed +++ b/lib/Archive/Extract/t/src/y.par.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.par.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.par + uupacktool.pl -u lib/Archive/Extract/t/src/y.par.packed lib/Archive/Extract/t/src/y.par To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.par /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.par.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.par lib/Archive/Extract/t/src/y.par.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M4$L#!`H``````,NBB#$````````````````"`!``>2]56`P`M%6W06Y4MT'U diff --git a/lib/Archive/Extract/t/src/y.tar.bz2.packed b/lib/Archive/Extract/t/src/y.tar.bz2.packed index d776180..135f81f 100644 --- a/lib/Archive/Extract/t/src/y.tar.bz2.packed +++ b/lib/Archive/Extract/t/src/y.tar.bz2.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.bz2.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.bz2 + uupacktool.pl -u lib/Archive/Extract/t/src/y.tar.bz2.packed lib/Archive/Extract/t/src/y.tar.bz2 To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.bz2 /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.bz2.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.tar.bz2 lib/Archive/Extract/t/src/y.tar.bz2.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M0EIH.3%!6293636W".T``+)[E,B``$!``/>```-B"1XP!```0``((`"2A*4] diff --git a/lib/Archive/Extract/t/src/y.tar.gz.packed b/lib/Archive/Extract/t/src/y.tar.gz.packed index 06541d8..2d3a89d 100644 --- a/lib/Archive/Extract/t/src/y.tar.gz.packed +++ b/lib/Archive/Extract/t/src/y.tar.gz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.gz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.gz + uupacktool.pl -u lib/Archive/Extract/t/src/y.tar.gz.packed lib/Archive/Extract/t/src/y.tar.gz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.gz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.gz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.tar.gz lib/Archive/Extract/t/src/y.tar.gz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M'XL(`````````^W1,0Z#,`R%81\E-R"F>2\````````````````````````````````````````````````````````` diff --git a/lib/Archive/Extract/t/src/y.tbz.packed b/lib/Archive/Extract/t/src/y.tbz.packed index 7611216..07f5ad0 100644 --- a/lib/Archive/Extract/t/src/y.tbz.packed +++ b/lib/Archive/Extract/t/src/y.tbz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tbz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tbz + uupacktool.pl -u lib/Archive/Extract/t/src/y.tbz.packed lib/Archive/Extract/t/src/y.tbz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tbz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tbz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.tbz lib/Archive/Extract/t/src/y.tbz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M0EIH.3%!6293636W".T``+)[E,B``$!``/>```-B"1XP!```0``((`"2A*4] diff --git a/lib/Archive/Extract/t/src/y.tgz.packed b/lib/Archive/Extract/t/src/y.tgz.packed index 20452c4..8ff545b 100644 --- a/lib/Archive/Extract/t/src/y.tgz.packed +++ b/lib/Archive/Extract/t/src/y.tgz.packed @@ -4,13 +4,13 @@ is included in the Perl distribution. To unpack this file use the following command: - uupacktool.pl -u /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tgz.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tgz + uupacktool.pl -u lib/Archive/Extract/t/src/y.tgz.packed lib/Archive/Extract/t/src/y.tgz To recreate it use the following command: - uupacktool.pl -p /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tgz /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tgz.packed + uupacktool.pl -p lib/Archive/Extract/t/src/y.tgz lib/Archive/Extract/t/src/y.tgz.packed -Created at Fri Jan 26 14:27:58 2007 +Created at Wed Apr 11 21:33:16 2007 ######################################################################### __UU__ M'XL(`````````^W1,0Z#,`R%81\E-R"F>2]56`P`M%6W06Y4MT'U