Add a pseudolayer ":locale" to the open pragma which

[p5sagit/p5-mst-13.2.git] / ext / Encode / Makefile.PL

diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL
index 6a0e1c5..97254ac 100644 (file)
--- a/ext/Encode/Makefile.PL
+++ b/ext/Encode/Makefile.PL
@@ -1,14 +1,14 @@
 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 = (iso8859 => ['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 =~ /iso8859.*\.ucm/)
    {
     push(@{$tables{iso8859}},$file);
    }
@@ -88,7 +88,7 @@ sub postamble
        $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}})