diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-04 15:26:43 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-03-04 15:26:43 +0000 |
commit | 635c6e81b73b8088f0caed000b509be48fcdc89b (patch) | |
tree | ba2e022915d9be474edda61586afd1921ac2eb2f | |
parent | a0c69c62cb3acb4a8703775f52717bf203c444d5 (diff) | |
download | perl-635c6e81b73b8088f0caed000b509be48fcdc89b.tar.gz |
Win32 hack
p4raw-id: //depot/perlio@14999
-rwxr-xr-x | ext/Encode/compile | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/Encode/compile b/ext/Encode/compile index 6eda5b9396..5aeebd23da 100755 --- a/ext/Encode/compile +++ b/ext/Encode/compile @@ -418,6 +418,8 @@ sub compile_ucm $encoding{$name} = [$e2u,$u2e,$erep,$min_el,$max_el]; } + + sub compile_enc { my ($fh,$name) = @_; @@ -458,8 +460,9 @@ sub compile_enc { # So why is it 1% faster to leave the my here? my $line = <$fh>; - die "Line should be exactly 65 characters long including newline" - unless length ($line) == 65; + $line =~ s/\r\n$/\n/; + die "$.:${line}Line should be exactly 65 characters long including + newline (".length($line).")" unless length ($line) == 65; # Split line into groups of 4 hex digits, convert groups to ints # This takes 65.35 # map {hex $_} $line =~ /(....)/g |