Re: [PATCH regexec.c] lookahead for REF, MINMOD, PLUS, CURLY*

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

diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL
index fcd0651..bf6baee 100644 (file)
--- a/ext/Encode/Makefile.PL
+++ b/ext/Encode/Makefile.PL
@@ -1,6 +1,6 @@
 use ExtUtils::MakeMaker;
 
-my %tables = (iso8859 => ['ascii.ucm', 'cp1250.ucm'],
+my %tables = (8859 => ['ascii.ucm', 'cp1250.ucm', 'koi8-r.ucm' ],
               EBCDIC  => ['cp1047.ucm','cp37.ucm','posix-bc.ucm'],
               Symbols => ['symbol.ucm','dingbats.ucm'],
              );
@@ -8,9 +8,9 @@ my %tables = (iso8859 => ['ascii.ucm', 'cp1250.ucm'],
 opendir(ENC,'Encode');
 while (defined(my $file = readdir(ENC)))
  {
-  if ($file =~ /iso8859.*\.ucm/)
+  if ($file =~ /8859.*\.ucm/)
    {
-    push(@{$tables{iso8859}},$file);
+    push(@{$tables{8859}},$file);
    }
  }
 closedir(ENC);
@@ -46,6 +46,9 @@ sub post_initialize
   {
    $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;
@@ -88,7 +91,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}})