Change 14552 by jhi@alpha on 2002/02/04 22:22:16
Subject: [PATCH @14550] Encode build fix-ups for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Mon, 04 Feb 2002 17:16:00 -0600
Message-Id: <5.1.0.14.2.20020204161211.01c0a178@exchi01>
Affected files ...
.... //depot/perl/MANIFEST#725 edit
.... //depot/perl/configure.com#139 edit
.... //depot/perl/ext/Encode/EUC_JP/Makefile.PL#4 edit
.... //depot/perl/ext/Encode/Encode.xs#46 edit
Differences ...
==== //depot/perl/MANIFEST#725 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Mon Feb 4 15:30:05 2002
+++ perl/MANIFEST Mon Feb 4 15:30:05 2002
@@ -329,8 +329,8 @@
ext/Encode/Encode/symbol.ucm Encode table
ext/Encode/Encode/viscii.enc Encode table
ext/Encode/Encode/viscii.ucm Encode table
-ext/Encode/EUC_JP/EUC_JP.pm Enode module for euc-jp
-ext/Encode/EUC_JP/Makefile.PL Enode module for euc-jp
+ext/Encode/EUC_JP/EUC_JP.pm Encode module for euc-jp
+ext/Encode/EUC_JP/Makefile.PL Encode module for euc-jp
ext/Encode/lib/Encode/Encoding.pm Encode extension
ext/Encode/lib/Encode/Internal.pm Encode extension
ext/Encode/lib/Encode/iso10646_1.pm Encode extension
==== //depot/perl/configure.com#139 (text) ====
Index: perl/configure.com
--- perl/configure.com.~1~ Mon Feb 4 15:30:05 2002
+++ perl/configure.com Mon Feb 4 15:30:05 2002
@@ -2519,6 +2519,7 @@
$ IF xxx .EQS. "DynaLoader" THEN goto ext_loop ! omit
$ IF xxx .EQS. "SDBM_File/sdbm" THEN goto ext_loop ! sub extension - omit
$ IF xxx .EQS. "Devel/PPPort/harness" THEN goto ext_loop ! sub extension - omit
+$ IF xxx .EQS. "Encode/EUC_JP" THEN goto ext_loop ! sub extension - omit
$ IF F$EXTRACT(0,8,line) .EQS. "vms/ext/" THEN -
xxx = "VMS/" + F$EXTRACT(8,line_len - 20,line)
$ known_extensions = known_extensions + " ''xxx'"
==== //depot/perl/ext/Encode/EUC_JP/Makefile.PL#4 (text) ====
Index: perl/ext/Encode/EUC_JP/Makefile.PL
--- perl/ext/Encode/EUC_JP/Makefile.PL.~1~ Mon Feb 4 15:30:05 2002
+++ perl/ext/Encode/EUC_JP/Makefile.PL Mon Feb 4 15:30:05 2002
@@ -62,6 +62,11 @@
$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)
{
==== //depot/perl/ext/Encode/Encode.xs#46 (text) ====
Index: perl/ext/Encode/Encode.xs
--- perl/ext/Encode/Encode.xs.~1~ Mon Feb 4 15:30:05 2002
+++ perl/ext/Encode/Encode.xs Mon Feb 4 15:30:05 2002
@@ -244,7 +244,7 @@
/* 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);
}
}
End of Patch.
