Set feature logical names in VMS init code.

When setting a CRTL feature, also record the setting in a user-mode
logical name since historically checking the environment is the only
way a Perl program can check a particular setting (otherwise we'd
need the currently vaporware VMS::Feature extension).

1 files changed, 6 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 6d6e527362..160f62ed13 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -104,7 +104,12 @@ static int set_feature_default(const char *name, int value)
       return -1;
     }
 
-return 0;
+    /* Various things may check for an environment setting
+     * rather than the feature directly, so set that too.
+     */
+    vmssetuserlnm(name, value ? "ENABLE" : "DISABLE");
+
+    return 0;
 }
 #endif