fix: Make WebGUI error out if there is a permissions problem while creating tar files
This commit is contained in:
parent
a0522d4d29
commit
0e0e4acc81
2 changed files with 4 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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') {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue