This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unused feature setting from vms/vms.c.
authorCraig A. Berry <craigberry@mac.com>
Wed, 6 Feb 2013 03:23:42 +0000 (21:23 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 6 Feb 2013 03:23:42 +0000 (21:23 -0600)
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.

vms/vms.c

index 8466caa..f7be0b3 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -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) {