Perl rclimg: do call use Image::Exiftool

So that the packer can do its job on Windows
This commit is contained in:
Jean-Francois Dockes 2019-01-25 15:16:08 +01:00
parent 409d877f46
commit 8b83058b69

View File

@ -140,7 +140,7 @@ sub readparam {
# JFD: replaced the "use" call with a runtime load with error checking, # JFD: replaced the "use" call with a runtime load with error checking,
# for compat with the missing filter detection code. # for compat with the missing filter detection code.
#use Image::ExifTool qw(:Public); use Image::ExifTool qw(:Public);
eval {require Image::ExifTool; Image::ExifTool->import(qw(:Public));}; eval {require Image::ExifTool; Image::ExifTool->import(qw(:Public));};
if ($@) { if ($@) {
print "RECFILTERROR HELPERNOTFOUND Perl::Image::ExifTool\n"; print "RECFILTERROR HELPERNOTFOUND Perl::Image::ExifTool\n";