diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-06-23 00:58:49 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-06-23 00:58:49 +0000 |
| commit | b82d9e690e52f82a4b5589db5ff6c3afc6e42caf (patch) | |
| tree | 8e689ae9c195d081d1be54315ff778aef9a66d46 /vms | |
| parent | 30fb25ece8dec5c84d0768e30a0feb709a518e57 (diff) | |
| download | perl-b82d9e690e52f82a4b5589db5ff6c3afc6e42caf.tar.gz | |
perl 5.003: vms/fndvers.com
Update generation of ARCHLIB_EXP in config.h to use a
method which keeps VAXC happy
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/fndvers.com | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/vms/fndvers.com b/vms/fndvers.com index 04a9d9991c..f1ddc03eca 100644 --- a/vms/fndvers.com +++ b/vms/fndvers.com @@ -37,17 +37,35 @@ $ Close patchlevel_h $! $ If sublevel.eq.0 Then sublevel = "" $ perl_version = "5_" + plevel + sublevel +$ If F$GetSyi("HW_MODEL").gt.1024 +$ Then +$ arch = "AXP" +$ Else +$ arch = "VAX" +$ EndIf $ If p2.eqs."#NOFILE#" $ Then $ Write Sys$Output "Perl version directory name is ""''perl_version'""" $ Exit $ EndIf $! -$ token = """""""""''perl_version'""""""""" +$ token = """""""""/perl_root/lib/VMS_''arch'/''perl_version'""""""""" $ If sublevel.eqs."" Then token = token + " " $ token = token + " /**/" -$ Call update_file "''p2'" "# define _PVERS" "''token'" -$ If .not.$Status Then Exit $Status +$ Call update_file "''p2'" "#define ARCHLIB_EXP" "''token'" +$ teststs = $Status +$ If .not.teststs Then Exit teststs +$! +$ If teststs.ne.1 ! current values in config.vms are appropriate +$ Then +$ token = """""""""/perl_root/lib/VMS_''arch'"""""""" /**/" +$ Call update_file "''p2'" "#define OLDARCHLIB_EXP" "''token'" +$ If .not.$Status Then Exit $Status +$! +$ token = """""""""/perl_root/lib/site_perl/VMS_''arch'"""""""" /**/" +$ Call update_file "''p2'" "#define SITEARCH_EXP" "''token'" +$ If .not.$Status Then Exit $Status +$EndIf $! $ token = "''perl_version'" $ If sublevel.eqs."" Then token = token + " " |