commit 3ab5f3f21dbff1d5910dba0190b190ce0cd7cdbc
author Claude Brisson <claude@renegat.net> Sat May 30 15:18:06 2020 +0200
committer Claude Brisson <claude@renegat.net> Sat May 30 15:18:06 2020 +0200
tree 4bd6d9d7d821748f6a59b5a81096964eaa5e37ee
parent 1afba6ce8e9705bbdf3685094d369218cca25f44

[site] Remove obsolete char encoding fix

src/lib/view.pm

diff --git a/src/lib/view.pm b/src/lib/view.pm
index c671126..a6f8360 100644
--- a/src/lib/view.pm
+++ b/src/lib/view.pm
@@ -13,7 +13,6 @@
 use Date::Parse;
 use LWP::Simple;
 use File::Temp qw/tempfile/;
-use utf8;
 use HTML::Entities;
     
 # set to 1 for some debug output
@@ -36,9 +35,6 @@
     # hack to fix an error in the XML up to 1.7
     $xml =~ s/<scope>/&lt;scope&gt;/;
 
-    # hack to fix non-utf8 chars
-    utf8::encode($xml);
-
     my ($fh, $filename) = tempfile("XXXXXX");
     print $fh $xml;
     close $fh;
@@ -56,9 +52,6 @@
 
     $content = "" if not $content;
 
-    # hack to fix non-utf8 chars
-    utf8::encode($content);
-
     # extension gives lexer used for code highlighting
     if ($url =~ /\.([a-z]+)$/i)
     {
@@ -88,9 +81,6 @@
     my $xml = get 'https://gitbox.apache.org/repos/asf?p=velocity-master.git;a=blob_plain;f=pom/pom.xml;hb=HEAD';
     my ($fh, $filename) = tempfile("XXXXXX");
 
-    # hack to fix non-utf8 chars
-    utf8::encode($xml);
-
     print $fh $xml;
     close $fh;
     my $pmc = `xsltproc stylesheets/pmc.xsl $filename`;