2012-05-25 22 views
0

我写了小包装子程序产生的HTML表格与HTML::Table,同时我使用utf8::all和他们一起产生怪异的警告:为什么utf8 :: all和HTML :: Table一起产生奇怪的警告?

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下,我没有得到任何警告,

+0

我无法重现该问题。 – daxim

+0

@daxim:我在5.10.1下试过了,没有得到警告,但是我在5.12和5.14下做了 –

回答

3

的行数不完全正确,但错误似乎要与在POD以下绅士/淑女的名字:

威乐Skyttä,[email protected]

实际上没有UTF8,我怀疑。据推测,一个小错误报告是为了。

+0

谢谢! Btw,Ville是芬兰男性的名字。 –

+0

我想报告这个错误,但发现,我已经比一年前报告了它。用解决方案;) –