Re^3: Archive::Extract - error handling

As documented, if pure perl can't extract the archive, the external command line tool is tried instead if available. tar xzf works fine on the file, but produces nothing.

Confirmed by turning debugging on:

#!/usr/bin/perl
use warnings;
use strict;

use Archive::Extract;

$Archive::Extract::DEBUG = 1;

my $ae = Archive::Extract->new( archive => 'VLF20160618.tgz' );
if ($ae->extract) {
    use Data::Dumper; Dumper($ae->files);

} else {
    warn "ERROR: " . $ae->error;
}
print "Still here\n";
[download]

Output:

# Extracting with ->_untar_at
Unable to extract '/home/choroba/_/0/VLF20160618.tgz':  at /home/choro
+ba/perl5/lib/perl5/Archive/Extract.pm line 954.
    Archive::Extract::_untar_at(Archive::Extract=HASH(0x163e5b8)) call
+ed at /home/choroba/perl5/lib/perl5/Archive/Extract.pm line 438
    Archive::Extract::extract(Archive::Extract=HASH(0x163e5b8)) called
+ at ./1.pl line 10
 at ./1.pl line 10.
# Extraction method failed
# Extracting with ->_untar_bin
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /b
+in/tar -tf -]...
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /b
+in/tar -xf -]...
# Extraction succeeded
Still here
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re^3: Archive::Extract - error handling Select or Download Code


Just another Perl shrine
	PerlMonks