0

我编写了一个小的包装子程序来生成 HTML 表HTML::Table，同时我使用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 下我也没有收到警告，

4

1 回答 1

3

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

Ville Skyttä, ville.skytta@iki.fi

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

于 2012-05-25T13:19:21.473 回答