assume that configuration files have utf-8 in them

[webpac2] / lib / WebPAC / Parser.pm

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index d459a90..129d72e 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -8,6 +8,7 @@ use PPI;
 use PPI::Dumper;
 use Data::Dump qw/dump/;
 use File::Slurp;
+use Encode qw/decode/;
 
 use base qw/WebPAC::Common/;
 
@@ -166,7 +167,8 @@ sub normalize_rules {
                defined( $self->{_normalize_source}->{ _q($database) } ) &&
                defined( $self->{_normalize_source}->{ _q($database) }->{ _q($input) } )
        );
-       return $self->{_normalize_source}->{ _q($database) }->{ _q($input) };
+       my $source = decode('utf8', $self->{_normalize_source}->{ _q($database) }->{ _q($input) } );
+       return $source;
 }