diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-02-04 11:16:00 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-04 22:22:16 +0000 |
| commit | 85f7ebdf8b7a5cb2d4dfef649f36732a2c3c4afc (patch) | |
| tree | 9b2d47010433dd7a2abe41511906c9e24fc97a11 /ext | |
| parent | 31db85a97a65cdd379e9d980a999369fa5e3c9f2 (diff) | |
| download | perl-85f7ebdf8b7a5cb2d4dfef649f36732a2c3c4afc.tar.gz | |
Encode build fix-ups for VMS
Message-Id: <5.1.0.14.2.20020204161211.01c0a178@exchi01>
p4raw-id: //depot/perl@14552
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/EUC_JP/Makefile.PL | 5 | ||||
| -rw-r--r-- | ext/Encode/Encode.xs | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/ext/Encode/EUC_JP/Makefile.PL b/ext/Encode/EUC_JP/Makefile.PL index 6b65c9ac8a..03277418d5 100644 --- a/ext/Encode/EUC_JP/Makefile.PL +++ b/ext/Encode/EUC_JP/Makefile.PL @@ -62,6 +62,11 @@ sub postamble $str .= " $table.c"; } $str .= "\n\n"; + foreach my $table (keys %tables) + { + $str .= "$table.c : $table.xs\n"; + } + $str .= "\n"; my $compile = $self->catfile($self->updir,'compile'); foreach my $table (keys %tables) { diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 53167f4695..4dc16bbc58 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -244,7 +244,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f) /* Now get translated string (forced to UTF-8) and use as buffer */ if (SvPOK(uni)) { s = SvPVutf8(uni, len); - if (len && !is_utf8_string(s,len)) { + if (len && !is_utf8_string((U8*)s,len)) { Perl_warn(aTHX_ "panic: decode did not return UTF-8 '%.*s'",(int) len,s); } } |