From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 1 Jan 2001 17:43:47 +0000 (+0000)
Subject: Loose the "Loading..." warning.
X-Git-Tag: perl-5.7.1~53^2~181
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/c8991b40a4a3c9ec8efc70a2420a12ff1ce50eb0

Loose the "Loading..." warning.
Another bug in fallback support

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

diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm
index dedb8e9..42c9e84 100644
--- a/ext/Encode/Encode.pm
+++ b/ext/Encode/Encode.pm
@@ -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
diff --git a/ext/Encode/encengine.c b/ext/Encode/encengine.c
index 4c68dd9..513ef9a 100644
--- a/ext/Encode/encengine.c
+++ b/ext/Encode/encengine.c
@@ -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)