From: Jarkko Hietaniemi Date: Thu, 6 Feb 2003 09:26:53 +0000 (+0000) Subject: Things forgotten from Encode 1.87. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=315b3302253fddd0350dfb87e791a1cbf5584b20;p=p5sagit%2Fp5-mst-13.2.git Things forgotten from Encode 1.87. p4raw-id: //depot/perl@18664 --- diff --git a/ext/Encode/Unicode/Unicode.xs b/ext/Encode/Unicode/Unicode.xs index 6cd3950..56e1bd1 100644 --- a/ext/Encode/Unicode/Unicode.xs +++ b/ext/Encode/Unicode/Unicode.xs @@ -113,7 +113,7 @@ CODE: endian = 'V'; } else { - croak("%"SVf":Unregognised BOM %"UVxf, + croak("%"SVf":Unrecognised BOM %"UVxf, *hv_fetch((HV *)SvRV(obj),"Name",4,0), bom); } diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t index 5421f23..97062df 100644 --- a/ext/Encode/t/CJKT.t +++ b/ext/Encode/t/CJKT.t @@ -57,7 +57,7 @@ for my $charset (sort keys %Charset){ open $src, "<$src_enc" or die "$src_enc : $!"; - # binmode($src); # not needed! + binmode($src); # needed for UTF-8 input $txt = join('',<$src>); close($src);