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