remove cr from rfid sid

[koha_ffzg] / tools / upload-cover-image.pl

diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl
index dd73bbb..ff89afb 100755 (executable)
--- a/tools/upload-cover-image.pl
+++ b/tools/upload-cover-image.pl
@@ -37,8 +37,7 @@ resized, maintaining aspect ratio.
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use File::Temp;
 use CGI qw ( -utf8 );
@@ -105,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 {