diff options
Diffstat (limited to 'vms/genconfig.pl')
| -rw-r--r-- | vms/genconfig.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index 781a0b72a7..d4194bd3e1 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -12,6 +12,15 @@ unshift(@INC,'lib'); # In case someone didn't define Perl_Root # before the build +if ($ARGV[0] eq '-f') { + open(ARGS,$ARGV[1]) or die "Can't read data from $ARGV[1]: $!\n"; + @ARGV = (); + while (<ARGS>) { + push(@ARGV,split(/\|/,$_)); + } + close ARGS; +} + if (-f "config.vms") { $infile = "config.vms"; $outdir = "[-]"; } elsif (-f "[.vms]config.vms") { $infile = "[.vms]config.vms"; $outdir = "[]"; } elsif (-f "config.h") { $infile = "config.h"; $outdir = "[]";} @@ -194,6 +203,7 @@ $archlib = &VMS::Filespec::vmspath($privlib); $installarchlib = &VMS::Filespec::vmspath($installprivlib); $sitearch = &VMS::Filespec::vmspath($sitelib); $archlib =~ s#\]#.VMS_$archsufx\]#; +$sitearch =~ s#\]#.VMS_$archsufx\]#; print OUT "oldarchlib='$archlib'\n"; print OUT "oldarchlibexp='$archlib'\n"; ($vers = $]) =~ tr/./_/; |