fixed perl scripts for newer versions of perl. thanks Rentong Yu for the report.

Author: agentzh

utils/tut2wiki-cn.pl

@@ -1,8 +1,8 @@
 #!/usr/bin/env perl
 
+use utf8;
 use strict;
 use warnings;
-use encoding 'utf8';
 
 use Getopt::Std;
 my %opts;
@@ -74,7 +74,9 @@
 
 close $in;
 
-open $in, "<:encoding(UTF-8)", \$src;
+utf8::encode($src);
+
+open $in, "<:encoding(UTF-8)", \$src or die $!;
 
 my $wiki = '';
 undef $prev;
@@ -225,4 +227,3 @@
 sub usage {
     die "Usage: $0 [-o <outfile>] <infile>\n";
 }
-

utils/wiki2html-cn.pl

@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 
-use encoding 'utf8';
+use utf8;
 use strict;
 use warnings;
 
@@ -232,4 +232,3 @@ sub fmt_code {
 sub usage {
     die "Usage: $0 [-o <outfile>] <infile>\n";
 }
-