From 1d79230b9f9f08a5cb9bb5ee327d9577966b49aa Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 12 Jun 2008 23:12:42 +0000
Subject: [PATCH] don't try to chmod when extracting tar files in storage

---
 lib/WebGUI/Storage.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index 209c3ab87..03478a610 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -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;