This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Loose the "Loading..." warning.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 1 Jan 2001 17:43:47 +0000 (17:43 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Mon, 1 Jan 2001 17:43:47 +0000 (17:43 +0000)
Another bug in fallback support

p4raw-id: //depot/perlio@8290

ext/Encode/Encode.pm
ext/Encode/encengine.c

index dedb8e9..42c9e84 100644 (file)
@@ -378,7 +378,7 @@ sub loadEncoding
      last unless $type eq '#';
     }
    $class .= ('::'.(($type eq 'E') ? 'Escape' : 'Table'));
-   warn "Loading $file";
+   #warn "Loading $file";
    return $class->read($fh,$name,$type);
   }
  else
index 4c68dd9..513ef9a 100644 (file)
@@ -106,7 +106,7 @@ do_encode(encpage_t *enc, const U8 *src, STRLEN *slen, U8 *dst, STRLEN dlen, STR
    U8 byte = *s;
    while (byte > e->max)
     e++;
-   if (byte >= e->min && e->slen && (approx || !e->slen & 0x80))
+   if (byte >= e->min && e->slen && (approx || !(e->slen & 0x80)))
     {
      const U8 *cend = s + (e->slen & 0x7f);
      if (cend <= send)