X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=lib%2FWebPAC%2FParser.pm;h=129d72e04d36c630724a75d79643e56baa0f78fb;hb=95edec41e0c0fdf89b5867da49651f4e21424509;hp=d459a9079358aa906ebc92d342610e0d12a8c009;hpb=782fd5a9d761b36847beeb7ab5f32e8a70433505;p=webpac2 diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm index d459a90..129d72e 100644 --- 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; }