Change file-of-files command line from -F to -f to avoid case issues on VMS.

p4raw-id: //depot/perlio@8519

diff --git a/ext/Encode/Makefile.PL b/ext/Encode/Makefile.PL
index fcd0651..0b20c48 100644 (file)
--- a/ext/Encode/Makefile.PL
+++ b/ext/Encode/Makefile.PL
@@ -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}})

diff --git a/ext/Encode/compile b/ext/Encode/compile
index eb77133..755b78c 100755 (executable)
--- a/ext/Encode/compile
+++ b/ext/Encode/compile
@@ -48,7 +48,7 @@ sub encode_M
 eval "\@ARGV = map(glob(\$_),\@ARGV)" if ($^O eq 'MSWin32');
 
 my %opt;
-getopts('qo:F:n:',\%opt);
+getopts('qo:f:n:',\%opt);
 my $cname = (exists $opt{'o'}) ? $opt{'o'} : shift(@ARGV);
 chmod(0666,$cname) if -f $cname && !-w $cname;
 open(C,">$cname") || die "Cannot open $cname:$!";
@@ -99,10 +99,10 @@ elsif ($cname =~ /\.ucm$/)
  }
 
 my @encfiles;
-if (exists $opt{'F'})
+if (exists $opt{'f'})
  {
   # -F is followed by name of file containing list of filenames
-  my $flist = $opt{'F'};
+  my $flist = $opt{'f'};
   open(FLIST,$flist) || die "Cannot open $flist:$!";
   chomp(@encfiles = <FLIST>);
   close(FLIST);