X-Git-Url: http://git.ieval.ro/?p=zeal.git;a=blobdiff_plain;f=lib%2FZeal%2FFeed.pm;fp=lib%2FZeal%2FFeed.pm;h=b4bbc521437d6649a1e36e28b8f4ccebc7eb07dd;hp=5964cfe878472255c681e249344d1565c3210485;hb=a95f0a1f84e33faaee307241ecbc9f1b82e7e066;hpb=1a477fa4fdc40fd4142e2a01ff12865381cd7d8e diff --git a/lib/Zeal/Feed.pm b/lib/Zeal/Feed.pm index 5964cfe..b4bbc52 100644 --- a/lib/Zeal/Feed.pm +++ b/lib/Zeal/Feed.pm @@ -58,19 +58,19 @@ sub url { sub _unpack_tar_to_dir { my ($file, $dir) = @_; + $file = rel2abs $file; + my $oldwd = getcwd; + chdir $dir; my $tar = which 'tar' or which 'gtar'; if ($tar && !$ENV{ZEAL_USE_INTERNAL_TAR}) { my $arg = '-xf'; $arg = '-xzf' if $file =~ /[.]t?gz$/; $arg = '-xjf' if $file =~ /[.]bz2$/; - system $tar, -C => $dir, $arg => $file + system $tar, $arg => $file } else { - $file = rel2abs $file; - my $oldwd = getcwd; - chdir $dir; Archive::Tar->extract_archive($file); - chdir $oldwd; } + chdir $oldwd; } sub download {