diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-02-08 03:23:31 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-08 03:23:31 +0000 |
| commit | 482b294c2001bd1c291b5e70975012f29ac95f24 (patch) | |
| tree | d16a6fd8abf3b5343bcf99fef11459076cd92800 /vms/genconfig.pl | |
| parent | b8440792c4a62245d0033c065af6c1ecb58e6474 (diff) | |
| download | perl-482b294c2001bd1c291b5e70975012f29ac95f24.tar.gz | |
VMS updates.
Diffstat (limited to 'vms/genconfig.pl')
| -rw-r--r-- | vms/genconfig.pl | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/vms/genconfig.pl b/vms/genconfig.pl index a4721ba4b0..781a0b72a7 100644 --- a/vms/genconfig.pl +++ b/vms/genconfig.pl @@ -191,12 +191,19 @@ while (<DATA>) { print OUT "d_vms_do_sockets=",$dosock ? "'define'\n" : "'undef'\n"; print OUT "d_has_sockets=",$dosock ? "'define'\n" : "'undef'\n"; $archlib = &VMS::Filespec::vmspath($privlib); -$archlib =~ s#\]#.VMS_$archsufx\]#; $installarchlib = &VMS::Filespec::vmspath($installprivlib); -$installarchlib =~ s#\]#.VMS_$archsufx\]#; +$sitearch = &VMS::Filespec::vmspath($sitelib); +$archlib =~ s#\]#.VMS_$archsufx\]#; +print OUT "oldarchlib='$archlib'\n"; +print OUT "oldarchlibexp='$archlib'\n"; +($vers = $]) =~ tr/./_/; +$archlib =~ s#\]#.$vers\]#; +$installarchlib =~ s#\]#.VMS_$archsufx.$vers\]#; print OUT "archlib='$archlib'\n"; print OUT "archlibexp='$archlib'\n"; print OUT "installarchlib='$installarchlib'\n"; +print OUT "sitearch='$sitearch'\n"; +print OUT "sitearchexp='$sitearch'\n"; if (open(OPT,"${outdir}crtl.opt")) { while (<OPT>) { @@ -254,8 +261,9 @@ signal_t=void timetype=long builddir=perl_root:[000000] prefix=perl_root -installprivlib=perl_root:[lib] -privlib=perl_root:[lib] +installprivlib=perl_root:[lib] # The *lib constants should match the +privlib=perl_root:[lib] # equivalent *(?:ARCH)LIB_EXP constants +sitelib=perl_root:[lib.site_perl] # in config.h installbin=perl_root:[000000] installman1dir=perl_root:[man.man1] installman3dir=perl_root:[man.man3] |