diff options
Diffstat (limited to 'lib/SlackBuild/Archive/Extractor/HTTP.pm')
| -rw-r--r-- | lib/SlackBuild/Archive/Extractor/HTTP.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/SlackBuild/Archive/Extractor/HTTP.pm b/lib/SlackBuild/Archive/Extractor/HTTP.pm index 4676d95..ad6e1d2 100644 --- a/lib/SlackBuild/Archive/Extractor/HTTP.pm +++ b/lib/SlackBuild/Archive/Extractor/HTTP.pm @@ -42,11 +42,12 @@ sub extract { my $uri = $self->archive->new_abs($file); my ($dh,$tmp) = File::Temp::tempfile(DIR => $dir, UNLINK => 1); chmod 0644, $dh; - unless ($uri->download($tmp)) { + my $subres = $uri->download($tmp); + unless ($subres) { return $result; } my $destfile = File::Spec->catfile($dst, $file); - if ($result->is_html && $self->_html_list($tmp, $file)) { + if ($subres->is_html && $self->_html_list($tmp, $file)) { ; } else { rename $tmp, $destfile |