From 97593a24f258d0303ebf3887120a2741e87c430e Mon Sep 17 00:00:00 2001 From: DS_Starter Date: Wed, 28 Oct 2020 16:18:41 +0000 Subject: [PATCH] SMUtils.pm: update to version 1.20.2 git-svn-id: https://svn.fhem.de/fhem/trunk@23039 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/lib/FHEM/SynoModules/SMUtils.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/fhem/lib/FHEM/SynoModules/SMUtils.pm b/fhem/lib/FHEM/SynoModules/SMUtils.pm index 3b6b88de8..2766cba5b 100644 --- a/fhem/lib/FHEM/SynoModules/SMUtils.pm +++ b/fhem/lib/FHEM/SynoModules/SMUtils.pm @@ -34,6 +34,7 @@ use MIME::Base64; use Time::HiRes qw(gettimeofday); eval "use JSON;1;" or my $nojsonmod = 1; ## no critic 'eval' use Data::Dumper; +use Encode; # use lib qw(/opt/fhem/FHEM /opt/fhem/lib); # für Syntaxcheck mit: perl -c /opt/fhem/lib/FHEM/SynoModules/SMUtils.pm @@ -41,7 +42,7 @@ use FHEM::SynoModules::ErrCodes qw(:all); # Erro use GPUtils qw( GP_Import GP_Export ); use Carp qw(croak carp); -use version; our $VERSION = version->declare('1.20.1'); +use version; our $VERSION = version->declare('1.20.2'); use Exporter ('import'); our @EXPORT_OK = qw( @@ -247,12 +248,12 @@ sub slurpFile { my $content = q{}; my $fh; - open $fh, '<', "$file" or do { Log3($name, 2, qq{$name - cannot open local File "$file": $!}); - close ($fh) if($fh); - $errorcode = 9002; - }; + open $fh, "<", encode("iso_8859_1", "$file") or do { Log3($name, 2, qq{$name - cannot open local File "$file": $!}); + close ($fh) if($fh); + $errorcode = 9002; + }; if(!$errorcode) { - local $/ = undef; # enable slurp mode, locally + local $/ = undef; # enable slurp mode, locally $content = <$fh>; close ($fh);