sjis_t => ['shiftjis.ucm',
'macJapanese.ucm',
'cp932.ucm'],
+ raw_t => [
+ qw(jis0201.ucm jis0208.ucm jis0212.ucm)
+ ],
);
my $name = 'JP';
$continuator = '';
}
}
- my $plib = $ENV{PERL_CORE} ? '-I$(PERL_LIB)' : '';
- my $ucopts = ($^O eq 'VMS') ? '-"Q"' : '-Q'; # VMS tweaks
+ my $plib = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
+ my $ucopts = '-"Q"';
$str .=
qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
open (FILELIST, ">$table.fnm")