为什么utf8::all和HTML::table一起会产生奇怪的警告



我写了小包装器子例程来生成带有HTML::Table的HTML表,同时我使用utf8::all,它们一起产生一个奇怪的警告:

utf8 "xE4" does not map to Unicode at /usr/share/perl5/HTML/Table.pm line 756.

756行在POD的中间,所以我想不通,那里可能出了什么问题。

重现问题的示例脚本:

use 5.012;
use utf8::all;
use HTML::Table;
my @head = qw(col1 col2 col3);
my @table = (
        [ qw( yks kaks kolm) ],
        [ qw( neli viis kuus) ],
    );
say table_draw( table => @table, header => @head );
sub table_draw {
    my (%args) = @_;
    $args{border} ||= 0;
    $args{padding} ||= 1;
    $args{width} ||= '95%';
    my $table = new HTML::Table(
                -head=> $args{header},
                -data=> $args{table},
                -width=> $args{width},
                -border=> $args{border},
                -padding=> $args{padding},
            );
    return $table;
}

编辑:更改了最小的Perl版本,因为在5.10下我也没有收到警告,

行号不太正确,但错误似乎与 POD 中的以下绅士/女士姓名有关:

Ville Skyttä, ville.skytta@iki.fi

我怀疑实际上不是utf8。大概有一个小的错误报告是有序的。

相关内容

最新更新