From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 22 Jan 2001 20:33:50 +0000 (+0000)
Subject: Change file-of-files command line from -F to -f to avoid case issues on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3865e8e16e47e0d7cb9fff45bba4e84e396abd42;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);