我写了小包装器子例程来生成带有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。大概有一个小的错误报告是有序的。