Fix utils/perldoc.PL for dos-djgpp:

[p5sagit/p5-mst-13.2.git] / vms / fndvers.com

diff --git a/vms/fndvers.com b/vms/fndvers.com
index f1ddc03..f668666 100755 (executable)
--- 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