fix: Make WebGUI error out if there is a permissions problem while creating tar files

This commit is contained in:
Graham Knop 2007-05-21 17:19:51 +00:00
parent a0522d4d29
commit 0e0e4acc81
2 changed files with 4 additions and 1 deletions

View file

@ -17,6 +17,8 @@
http://www.plainblack.com/bugs/tracker/enhance-error-message-in-spectre-admin.pm
- fix: Copying threads, posts, or wiki pages creates inactive version tag
http://www.plainblack.com/bugs/tracker/new-second-inactive-version-tag-when-duplicating-thread
- fix: Make WebGUI error out if there is a permissions problem while creating tar files
http://www.plainblack.com/bugs/tracker/webgui-hangs-on-package-export
7.3.17

View file

@ -24,6 +24,7 @@ use Storable qw(nstore retrieve);
use strict;
use warnings;
use WebGUI::Utility;
use Carp;
=head1 NAME
@ -883,7 +884,7 @@ sub tar {
my $self = shift;
my $filename = shift;
my $temp = shift || WebGUI::Storage->createTemp($self->session);
chdir $self->getPath;
chdir $self->getPath or croak 'Unable to chdir to ' . $self->getPath . ": $!";
my @files = ();
find(sub { push(@files, $File::Find::name)}, ".");
if ($Archive::Tar::VERSION eq '0.072') {