oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix ZipArchive changing current directory

Browse source
This commit is contained in:
Graham Knop 2009-09-20 20:45:01 -05:00
parent 5c7c8a1c07
commit 3756624523
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -22,6 +22,8 @@ use WebGUI::Utility;
use Archive::Tar;
use Archive::Zip;
use Cwd ();
use Scope::Guard ();
@ -67,7 +69,9 @@ sub unzip {
my $filename = shift;
my $filepath = $storage->getPath();
chdir $filepath;
my $cwd = Cwd::cwd();
chdir $filepath;
my $dir_guard = Scope::Guard->new(sub { chdir $cwd });
my $i18n = WebGUI::International->new($self->session,"Asset_ZipArchive");
if ($filename =~ m/\.zip/i) {