X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/108d13f833e9daeff4ea1552e2e1bee1e0ed8c22..72d7fa29bef747722a947e079ceac1a21e12acc6:/source.plp diff --git a/source.plp b/source.plp index 38af1fa..56193fb 100644 --- a/source.plp +++ b/source.plp @@ -67,7 +67,6 @@ else { } -r $source or die "Requested file not found\n"; - require Encode; if (eval { require Text::VimColor and Text::VimColor->VERSION(0.12) }) { delete $Text::VimColor::SYNTAX_TYPE{Underlined}; my %TYPETAG = ( @@ -84,7 +83,7 @@ else { say '
'; foreach (@$parsed) { my ($type, $contents) = @{$_}; - $contents = Encode::decode_utf8($contents); + $contents = decode_utf8($contents); my $tag = $type && ($TYPETAG{$type} || 'span'); my $arg = ''; print "<$tag$arg class=\"sy-\l$type\">" if $tag; @@ -109,7 +108,7 @@ else { } else { say ''; - print EscapeHTML(Encode::decode_utf8(ReadFile($source))); + print EscapeHTML(decode_utf8(ReadFile($source))); say ''; }