p4raw-id: //depot/perl@18664
endian = 'V';
}
else {
- croak("%"SVf":Unregognised BOM %"UVxf,
+ croak("%"SVf":Unrecognised BOM %"UVxf,
*hv_fetch((HV *)SvRV(obj),"Name",4,0),
bom);
}
open $src, "<$src_enc" or die "$src_enc : $!";
- # binmode($src); # not needed!
+ binmode($src); # needed for UTF-8 input
$txt = join('',<$src>);
close($src);