From 83368ecf3c56ea2dfd3e67bbdbd983fdefada0db Mon Sep 17 00:00:00 2001
From: risiko79 <risiko79@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 20 Mar 2016 14:00:55 +0000
Subject: [PATCH] 98_weekprofile: fixed mutated vowels,

UTF8<->ASCII problem
writing ASCII, reading UTF8

git-svn-id: https://svn.fhem.de/fhem/trunk@11099 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                | 1 +
 fhem/FHEM/98_weekprofile.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 71ad3befa..15bc114ea 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - fixed:   98_weekprofile fix mutated vowels
   - feature: 50_TelegramBot  new option to retry for send &
                              confirmation dialog for favorites 
   - fixed:   configDB.pm - fix filelist problem on perl >= 5.20
diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm
index 520cec578..f2227dbe5 100644
--- a/fhem/FHEM/98_weekprofile.pm
+++ b/fhem/FHEM/98_weekprofile.pm
@@ -937,7 +937,8 @@ sub weekprofile_readProfilesFromFile(@)
      return;
   }
   
-  my $ret = open(my $fh, '<:encoding(UTF-8)', $filename);
+  #my $ret = open(my $fh, '<:encoding(UTF-8)', $filename);
+  my $ret = open(my $fh, '<', $filename);
   if (!$ret){
     Log3 $me, 1, "$me(readProfilesFromFile): Could not open file '$filename' $!";
     return;