use vars qw[$VERSION $PREFER_BIN $PROGRAMS $WARN $DEBUG];
-$VERSION = '0.16';
+$VERSION = '0.18';
$PREFER_BIN = 0;
$WARN = 1;
$DEBUG = 0;
### 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 :
### 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();
Maybe this module should use something like C<File::Type> to determine
the type, rather than blindly trust the suffix.
-=head1 AUTHORS
+=head1 BUG REPORTS
-This module by
-Jos Boumans E<lt>kane@cpan.orgE<gt>.
+Please report bugs or other issues to E<lt>bug-archive-extract@rt.cpan.org<gt>.
-=head1 COPYRIGHT
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
-This module is
-copyright (c) 2004-2007 Jos Boumans E<lt>kane@cpan.orgE<gt>.
-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
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,,
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```````
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``````````````
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!
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!
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@
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``````````````````````````````````````````````````````````
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@
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!
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
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
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]
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><EY&,I2J4.!`4Y?JH@5J4,JH?[?
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.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar
+ uupacktool.pl -u lib/Archive/Extract/t/src/y.tar.packed lib/Archive/Extract/t/src/y.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/y.tar /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.tar.packed
+ uupacktool.pl -p lib/Archive/Extract/t/src/y.tar lib/Archive/Extract/t/src/y.tar.packed
-Created at Fri Jan 26 14:27:58 2007
+Created at Wed Apr 11 21:33:16 2007
#########################################################################
__UU__
M>2\`````````````````````````````````````````````````````````
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]
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><EY&,I2J4.!`4Y?JH@5J4,JH?[?
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.zip.packed /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.zip
+ uupacktool.pl -u lib/Archive/Extract/t/src/y.zip.packed lib/Archive/Extract/t/src/y.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/y.zip /Users/kane/sources/perl-dev/perl-current-archive-extract.7657/lib/Archive/Extract/t/src/y.zip.packed
+ uupacktool.pl -p lib/Archive/Extract/t/src/y.zip lib/Archive/Extract/t/src/y.zip.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