"Wide character in subroutine entry" に悩まされてMarkdown.plをいじってdiffってみた

119

"Wide character in subroutine entry" に悩まされてMarkdown.plをいじってdiffってみた

再構築するたびに
"Wide character in subroutine entry"
が、めんどくさくなったので、原因らしいMarkdown.plをいじってdiffってみた。

参考にしたのは以下の記事。
Movable TypeのMarkdownプラグインのエラー対策［絵文録ことのは］2010/01/21

$ diff -u Markdown.pl.org Markdown.pl
--- Markdown.pl.org     2010-04-04 21:51:50.000000000 +0900
+++ Markdown.pl 2011-09-14 16:57:51.000000000 +0900
@@ -12,6 +12,7 @@
 use warnings;
 use bytes;
+use Encode qw(encode_utf8);
 use Digest::MD5 qw(md5_hex);
 use vars qw($VERSION);
 $VERSION = '1.0.1';
@@ -273,7 +274,8 @@
                     (?=\n+|\Z)  # followed by a newline or end of document
                 )
             }{
-                my $key = md5_hex($1);
+#                my $key = md5_hex($1);
+                my $key = md5_hex(encode_utf8($1));
                 $g_html_blocks{$key} = $1;
                 "\n\n" . $key . "\n\n";
             }egmx;
@@ -293,7 +295,8 @@
                     (?=\n+|\Z)  # followed by a newline or end of document
                 )
             }{
-                my $key = md5_hex($1);
+#                my $key = md5_hex($1);
+                my $key = md5_hex(encode_utf8($1));
                 $g_html_blocks{$key} = $1;
                 "\n\n" . $key . "\n\n";
             }egmx;
@@ -315,7 +318,8 @@
                     (?=\n{2,}|\Z)       # followed by a blank line or end of document
                 )
             }{
-                my $key = md5_hex($1);
+#                my $key = md5_hex($1);
+                my $key = md5_hex(encode_utf8($1));
                 $g_html_blocks{$key} = $1;
                 "\n\n" . $key . "\n\n";
             }egx;
@@ -338,7 +342,8 @@
                     (?=\n{2,}|\Z)       # followed by a blank line or end of document
                 )
             }{
-                my $key = md5_hex($1);
+#                my $key = md5_hex($1);
+                my $key = md5_hex(encode_utf8($1));
                 $g_html_blocks{$key} = $1;
                 "\n\n" . $key . "\n\n";
             }egx;