'Archive::Extract' =>
{
'MAINTAINER' => 'kane',
- 'DISTRIBUTION' => 'BINGOS/Archive-Extract-0.54.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/Archive-Extract-0.56.tar.gz',
'FILES' => q[cpan/Archive-Extract],
'UPSTREAM' => 'cpan',
'BUGS' => 'bug-archive-extract@rt.cpan.org',
$_ALLOW_BIN $_ALLOW_PURE_PERL $_ALLOW_TAR_ITER
];
-$VERSION = '0.54';
+$VERSION = '0.56';
$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 =~ /.+?\.gz$/i ? GZ :
- $ar =~ /.+?\.tar$/i ? TAR :
- $ar =~ /.+?\.(zip|jar|par)$/i ? ZIP :
- $ar =~ /.+?\.(?:tbz2?|tar\.bz2?)$/i ? TBZ :
- $ar =~ /.+?\.bz2$/i ? BZ2 :
- $ar =~ /.+?\.Z$/ ? Z :
- $ar =~ /.+?\.lzma$/ ? LZMA :
- $ar =~ /.+?\.(?:txz|tar\.xz)$/i ? TXZ :
- $ar =~ /.+?\.xz$/ ? XZ :
+ $ar =~ /.+?\.(?:tar\.gz|tgz)$/i ? TGZ :
+ $ar =~ /.+?\.gz$/i ? GZ :
+ $ar =~ /.+?\.tar$/i ? TAR :
+ $ar =~ /.+?\.(zip|jar|ear|war|par)$/i ? ZIP :
+ $ar =~ /.+?\.(?:tbz2?|tar\.bz2?)$/i ? TBZ :
+ $ar =~ /.+?\.bz2$/i ? BZ2 :
+ $ar =~ /.+?\.Z$/ ? Z :
+ $ar =~ /.+?\.lzma$/ ? LZMA :
+ $ar =~ /.+?\.(?:txz|tar\.xz)$/i ? TXZ :
+ $ar =~ /.+?\.xz$/ ? XZ :
'';
}
$self->_error( $self->_no_buffer_files( $self->archive ) );
} else {
- local $/ = ON_WIN32 ? "\r\n" : "\n";
+ ### Annoyingly, pesky MSWin32 can either have 'native' tools
+ ### which have \r\n line endings or Cygwin-based tools which
+ ### have \n line endings. Jan Dubois suggested using this fix
+ local $/ = ON_WIN32 ? qr/\r?\n/ : "\n";
$self->files( [split $/, $buffer] );
}
}
modules => [qw[Archive::Zip]],
method => 'is_zip',
outfile => 'a',
- },
+ },
+ 'x.ear' => { programs => [qw[unzip]],
+ modules => [qw[Archive::Zip]],
+ method => 'is_zip',
+ outfile => 'a',
+ },
+ 'x.war' => { programs => [qw[unzip]],
+ modules => [qw[Archive::Zip]],
+ method => 'is_zip',
+ outfile => 'a',
+ },
'x.par' => { programs => [qw[unzip]],
modules => [qw[Archive::Zip]],
method => 'is_zip',
outfile => 'z',
outdir => 'y'
},
+ 'y.ear' => { programs => [qw[unzip]],
+ modules => [qw[Archive::Zip]],
+ method => 'is_zip',
+ outfile => 'z',
+ outdir => 'y'
+ },
+ 'y.war' => { programs => [qw[unzip]],
+ modules => [qw[Archive::Zip]],
+ method => 'is_zip',
+ outfile => 'z',
+ outdir => 'y'
+ },
### with non-same top dir
'double_dir.zip' => {
programs => [qw[unzip]],