From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 4 Mar 2002 15:26:43 +0000 (+0000)
Subject: Win32 hack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aa0955498d45bb8096ef3cae16377877c15810a6;p=p5sagit%2Fp5-mst-13.2.git

Win32 hack

p4raw-id: //depot/perlio@14999
---

diff --git a/ext/Encode/compile b/ext/Encode/compile
index 6eda5b9..5aeebd2 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