use strict;
use ExtUtils::MakeMaker;
-my %tables = (EUC_CN => ['euc-cn.enc'],
- GB2312 => ['gb2312.enc'],
- GB12345 => ['gb12345.enc'],
- CP936 => ['cp936.enc'],
+my %tables = (euc_cn_t => ['euc-cn.ucm',
+ 'cp936.ucm',],
+ '2312_t' => ['gb2312.ucm'],
+ '12345_t' => ['gb12345.ucm'],
+ ir_165_t => ['ir-165.ucm'],
);
my $name = 'CN';
MAN3PODS => {},
# OS 390 winges about line numbers > 64K ???
XSOPT => '-nolinenumbers',
+ XSPROTOARG => '-noprototypes',
);
package MY;
}
MODULE = Encode::$name PACKAGE = Encode::$name
+PROTOTYPES: DISABLE
BOOT:
{
END
$continuator = '';
}
}
- $str .= "\n\t\$(PERL) $compile -o \$\@ -f $table.fnm\n\n";
+ $str .= $^O eq 'VMS' # In VMS quote to preserve case
+ ? qq{\n\t\$(PERL) $compile -"Q" -o \$\@ -f $table.fnm\n\n}
+ : qq{\n\t\$(PERL) $compile -Q -o \$\@ -f $table.fnm\n\n};
open (FILELIST, ">$table.fnm")
|| die "Could not open $table.fnm: $!";
foreach my $file (@{$tables{$table}})