use ExtUtils::MakeMaker;
-my %tables = (iso8859 => ['ascii.enc', 'cp1250.enc'],
- EBCDIC => ['cp1047.enc','cp37.enc','posix-bc.enc'],
- Symbols => ['symbol.enc','dingbats.enc'],
+my %tables = (8859 => ['ascii.ucm', 'cp1250.ucm', 'koi8-r.ucm' ],
+ EBCDIC => ['cp1047.ucm','cp37.ucm','posix-bc.ucm'],
+ Symbols => ['symbol.ucm','dingbats.ucm'],
);
opendir(ENC,'Encode');
while (defined(my $file = readdir(ENC)))
{
- if ($file =~ /iso8859.*\.enc/)
+ if ($file =~ /8859.*\.ucm/)
{
- push(@{$tables{iso8859}},$file);
+ push(@{$tables{8859}},$file);
}
}
closedir(ENC);
{
$o{$e.$x} = 1;
}
+ # Trick case-blind filesystems.
+ delete $o{'encode'.$x};
+ $o{'Encode'.$x} = 1;
# Reset the variable
$self->{'O_FILES'} = [sort keys %o];
my @files;
$continuator = '';
}
}
- $str .= "\n\t\$(PERL) compile -o \$\@ -F $table.fnm\n\n";
+ $str .= "\n\t\$(PERL) compile -o \$\@ -f $table.fnm\n\n";
open (FILELIST, ">$table.fnm")
|| die "Could not open $table.fnm: $!";
foreach my $file (@{$tables{$table}})