use strict;
use ExtUtils::MakeMaker;
-my %tables = (BIG5 => ['big5.enc'],
- CP950 => ['cp950.enc'],
+my %tables = ('BIG5' => ['big5.enc'],
+ 'BIG5_HKSCS' => ['big5-hkscs.enc'],
+ 'CP950' => ['cp950.enc'],
);
my $name = 'TW';
$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}})