diff options
| author | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-28 16:49:33 -0800 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-28 16:49:33 -0800 |
| commit | a5f75d667838e8e7bb037880391f5c44476d33b4 (patch) | |
| tree | 5005e888355c1508bc47da697efe119c1615b123 /vms/genconfig.pl | |
| parent | 2920c5d2b358b11ace52104b6944bfa0e89256a7 (diff) | |
| download | perl-a5f75d667838e8e7bb037880391f5c44476d33b4.tar.gz | |
perl 5.002perl-5.002
[editor's note: changes seem to be mostly module updates,
documentation changes and some perl API macro additions]
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/./_/; |