diff options
| author | dakkar <dakkar@thenautilus.net> | 2009-08-17 11:22:59 +0200 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2009-08-17 11:22:59 +0200 |
| commit | e660c18972e7e7d002a8abf881bfb566527fedaf (patch) | |
| tree | 742017e2479604de271f4dd4af8f69f0e1293eae /lib/WebCoso | |
| parent | ristretto %WebCoso::Common::docfiles, altrimenti file di backup e altre spoci... (diff) | |
| download | WebCoso-e660c18972e7e7d002a8abf881bfb566527fedaf.tar.gz WebCoso-e660c18972e7e7d002a8abf881bfb566527fedaf.tar.bz2 WebCoso-e660c18972e7e7d002a8abf881bfb566527fedaf.zip | |
decode ReST files before parsing
Diffstat (limited to 'lib/WebCoso')
| -rw-r--r-- | lib/WebCoso/ReST.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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); }); |