Perl5.26のMTOS5.2.13でupdate.cgiが動かないエラー。

naganaga34さん

下記ページに、同様事例での解決例が紹介されています。

http://www.hirno.net/~wind/blog/2018/04/movabletypeperl-526.html

当方の場合、かなり以前の確認で、かつローカル環境ではありますが、この情報を元に対象ファイルを修正したところ、元どおり動作するようになりました。一度お試しください。

>melodicantさん

返信ありがとうございます。
ご紹介いただいたページに書いてある対策は、施しております。

その上で、upgrade.cgiが起動すると、

Got an error: \C no longer supported in regex; marked by <-- HERE in m/(\ <-- HERE C)/

＞naganaga34さん
参考になるか分かりませんが、下記のページではextlib/URI/Escape.pmを対処されているようです。
http://www.webkoza.com/rooms/2019/02/fedora29mt522.html

参考に、MT5.2.2のextlib/URI/Escape.pmと、最新版のMT7-R5202のextlib/URI/Escape.pmの原因と思われる箇所のコードを抜粋で掲載しておきます。

MT5.2.2

sub escape_char {
    return join '', @URI::Escape::escapes{$_[0] =~ /(\C)/g};
}

MT7-R5202

# XXX FIXME escape_char is buggy as it assigns meaning to the string's storage format.
sub escape_char {
    # Old versions of utf8::is_utf8() didn't properly handle magical vars (e.g. $1).
    # The following forces a fetch to occur beforehand.
    my $dummy = substr($_[0], 0, 0);
 
    if (utf8::is_utf8($_[0])) {
        my $s = shift;
        utf8::encode($s);
        unshift(@_, $s);
    }
 
    return join '', @URI::Escape::escapes{split //, $_[0]};
}

この関数だけ書き換えてOKになるるか等は未保証です。
ただ、MT5.2.2のextlibとlib配下すべてをgrepしたところ、"\C"を使っているのは、URI/EScape.pmのescape_char()のみでしたので、この箇所が原因である可能性は高いです。

なお、元のエラーの説明はPerl公式マニュアルに記載がありました。
https://perldoc.jp/docs/perl/5.28.0/perldiag.pod#37s32is32more32clearly32written32simply32as32-37s32in32regex59-32marked32by32--32HERE32in32m47-37s47
（「no longer supported in regex; marked by」でページ検索）

MT7-R5202に含まれるEscape.pmは、マニュアルに書かれている対処を行っているようです。

>yujiroさん

返信ありがとうございます。
ご紹介いただいた対処を行いますので。問題なく動きました。
現在、管理画面にログインできています。

extlib/URI/Escape.pmの該当箇所を、そのまま入れ替えただけで動作しました。

助かりました。
ありがとうございます。