don't try to chmod when extracting tar files in storage

This commit is contained in:
Graham Knop 2008-06-12 23:12:42 +00:00
parent f4aa883e82
commit 1d79230b9f

View file

@ -996,6 +996,7 @@ sub untar {
my $originalDir = Cwd::cwd();
chdir $temp->getPath;
local $Archive::Tar::CHOWN = 0;
local $Archive::Tar::CHMOD = 0;
Archive::Tar->extract_archive($self->getPath($filename),1);
$self->_addError(Archive::Tar->error) if (Archive::Tar->error);
my @files;