X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Ffndvers.com;h=2e49ae6fcb8cdb0ba2dadd265d324a510528c67f;hb=6b8afdafd43a19a5a652c59255c9895c9bcbe27b;hp=f1ddc03eca9399e00c80f471adc81ca3466d575f;hpb=9bb683e6b9e9c477f8ad211dd2f5b8c19d1b7bc2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/fndvers.com b/vms/fndvers.com
index f1ddc03..2e49ae6 100644
--- a/vms/fndvers.com
+++ b/vms/fndvers.com
@@ -58,6 +58,11 @@ $ If .not.teststs Then Exit teststs
 $!
 $ If teststs.ne.1 ! current values in config.vms are appropriate
 $ Then
+$   token = """""""""VMS_''arch'  /**/"""""""""
+$   Call update_file "''p2'" "#define ARCHNAME" "''token'"
+$   teststs = $Status
+$   If .not.teststs Then Exit teststs
+$!
 $   token = """""""""/perl_root/lib/VMS_''arch'""""""""  /**/"
 $   Call update_file "''p2'" "#define OLDARCHLIB_EXP" "''token'"
 $   If .not.$Status Then Exit $Status