@@ -, +, @@ --- tools/picture-upload.pl | 4 +++- tools/upload-cover-image.pl | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) --- a/tools/picture-upload.pl +++ a/tools/picture-upload.pl @@ -115,7 +115,9 @@ if ( ( $op eq 'Upload' ) && $uploadfile ) { } close $tfh; if ( $filetype eq 'zip' ) { - unless ( system( "unzip", $tempfile, '-d', $dirname ) == 0 ) { + qx/unzip $tempfile -d $dirname/; + my $exit_code = $?; + unless ( $exit_code == 0 ) { $errors{'UZIPFAIL'} = $uploadfilename; $template->param( ERRORS => [ \%errors ] ); # This error is fatal to the import, so bail out here --- a/tools/upload-cover-image.pl +++ a/tools/upload-cover-image.pl @@ -104,7 +104,9 @@ if ($fileID) { else { my $filename = $upload->full_path; my $dirname = File::Temp::tempdir( CLEANUP => 1 ); - unless ( system( "unzip", $filename, '-d', $dirname ) == 0 ) { + qx/unzip $filename -d $dirname/; + my $exit_code = $?; + unless ( $exit_code == 0 ) { $error = 'UZIPFAIL'; } else { --