open modify file with utf-8 encoding

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 462a303..df2e052 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -704,7 +704,7 @@ sub modify_file_regexps {
 
        my $regexpes;
 
-       CORE::open(my $fh, $modify_path) || $log->logdie("can't open modify file $modify_path: $!");
+       CORE::open(my $fh, '<:encoding(utf-8)', $modify_path) || $log->logdie("can't open modify file $modify_path: $!");
 
        my ($f,$sf);