diff options
author | Craig A. Berry <craigberry@mac.com> | 2013-02-05 21:23:42 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2013-02-05 21:23:42 -0600 |
commit | 12d07ca2e030c5e8d1dbfb5167d83aaf00efbe1b (patch) | |
tree | 446296807ff993ef6041a041e8325a2af5800387 /vms/vms.c | |
parent | db2284bca1065422062fe29d79ef7df2eda275b4 (diff) | |
download | perl-12d07ca2e030c5e8d1dbfb5167d83aaf00efbe1b.tar.gz |
Remove unused feature setting from vms/vms.c.
This feature was apparently intended to enable workarounds for
handling filespec translations on paths with no directory component.
Many (most?) of the problems with such paths have now been fixed,
and the feature itself was never actually used, so we're better
off without it.
Diffstat (limited to 'vms/vms.c')
-rw-r--r-- | vms/vms.c | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -267,7 +267,6 @@ static int vms_posix_exit = 0; /* bug workarounds if needed */ int decc_bug_devnull = 1; -int decc_dir_barename = 0; int vms_bug_stat_filename = 0; static int vms_debug_on_exception = 0; @@ -14045,17 +14044,6 @@ vmsperl_set_features(void) decc_bug_devnull = 0; } - /* UNIX directory names with no paths are broken in a lot of places */ - decc_dir_barename = 1; - status = simple_trnlnm("DECC_DIR_BARENAME", val_str, sizeof(val_str)); - if ($VMS_STATUS_SUCCESS(status)) { - val_str[0] = _toupper(val_str[0]); - if ((val_str[0] == 'E') || (val_str[0] == '1') || (val_str[0] == 'T')) - decc_dir_barename = 1; - else - decc_dir_barename = 0; - } - #if __CRTL_VER >= 70300000 && !defined(__VAX) s = decc$feature_get_index("DECC$DISABLE_TO_VMS_LOGNAME_TRANSLATION"); if (s >= 0) { |