From e660c18972e7e7d002a8abf881bfb566527fedaf Mon Sep 17 00:00:00 2001 From: dakkar Date: Mon, 17 Aug 2009 11:22:59 +0200 Subject: decode ReST files before parsing --- lib/WebCoso/ReST.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/WebCoso/ReST.pm b/lib/WebCoso/ReST.pm index f8cda3f..cc29d95 100644 --- a/lib/WebCoso/ReST.pm +++ b/lib/WebCoso/ReST.pm @@ -6,6 +6,7 @@ use Path::Class; use Text::Restructured; use Text::Restructured::Writer::LibXML; use Log::Log4perl ':easy'; +use Encode; sub new { my ($class,%opts)=@_; @@ -27,7 +28,7 @@ sub new { $self->{fc}->add_parser(qr{\.rest\.txt$} => sub { - my $dudom=$self->{rest}->Parse($_[1],$_[0]); + my $dudom=$self->{rest}->Parse(decode('utf-8',$_[1]),$_[0]); return Text::Restructured::Writer::LibXML ->new->ProcessDOM($dudom); }); -- cgit v1.2.3