diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-01 17:43:47 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-01 17:43:47 +0000 |
| commit | 6f95b6de3f3428f41f6353ad16bcf2805c63442a (patch) | |
| tree | d84bf61ec9618e7c13985a7b079b50ba98f5e8fb /ext | |
| parent | 38d1b8fd416a5928bb4c427e6abb79bc56f6cdb5 (diff) | |
| download | perl-6f95b6de3f3428f41f6353ad16bcf2805c63442a.tar.gz | |
Loose the "Loading..." warning.
Another bug in fallback support
p4raw-id: //depot/perlio@8290
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.pm | 2 | ||||
| -rw-r--r-- | ext/Encode/encengine.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index dedb8e9a89..42c9e8471a 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 4c68dd96f6..513ef9ac5b 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) |