Things forgotten from Encode 1.87.
Jarkko Hietaniemi [Thu, 6 Feb 2003 09:26:53 +0000 (09:26 +0000)]
p4raw-id: //depot/perl@18664

ext/Encode/Unicode/Unicode.xs
ext/Encode/t/CJKT.t

index 6cd3950..56e1bd1 100644 (file)
@@ -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);
            }
index 5421f23..97062df 100644 (file)
@@ -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);