use strict;
use ExtUtils::MakeMaker;
-my %tables = (EUC_KR => ['euc-kr.enc'],
- KSC5601 => ['ksc5601.enc'],
+my %tables = (euc_kr_t => ['euc-kr.ucm',
+ 'cp949.ucm',
+ ],
+ '5601_t' => ['ksc5601.ucm'],
);
my $name = 'KR';
}
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}})