From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 27 May 2007 01:50:46 +0000 (+0000)
Subject: In the homegrown readdir() for VMS, always treat unix-style paths
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f617045b1dc288a3a5c423f1bc2d20a0b872e39e;p=p5sagit%2Fp5-mst-13.2.git

In the homegrown readdir() for VMS, always treat unix-style paths
appropriately regardless of environment setting, and also remove
the escape characters from escaped dots.

p4raw-id: //depot/perl@31282
---

diff --git a/vms/vms.c b/vms/vms.c
index d8d7ed6..73f13f5 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -565,10 +565,9 @@ int scnt;
 	inspec++;
 	switch (*inspec) {
 	case '.':
-	    /* Non trailing dots should just be passed through */
+	    /* Non trailing dots should just be passed through, but eat the escape */
 	    *outspec = *inspec;
 	    count++;
-	    (*output_cnt)++;
 	    break;
 	case '_': /* space */
 	    *outspec = ' ';
@@ -8746,12 +8745,9 @@ Perl_opendir(pTHX_ const char *name)
     DIR *dd;
     char *dir;
     Stat_t sb;
-    int unix_flag;
+    int unix_flag = 0;
 
-    unix_flag = 0;
-    if (decc_efs_charset) {
-        unix_flag = is_unix_filespec(name);
-    }
+    unix_flag = is_unix_filespec(name);
 
     Newx(dir, VMS_MAXRSS, char);
     if (do_tovmspath(name,dir,0,NULL) == NULL) {
@@ -8987,21 +8983,21 @@ Perl_readdir(pTHX_ DIR *dd)
 	if (strchr(dd->entry.d_name, '^') != NULL) {
 	    char new_name[256];
 	    char * q;
-	    int cnt;
 	    p = dd->entry.d_name;
 	    q = new_name;
 	    while (*p != 0) {
-		int x, y;
-		x = copy_expand_vms_filename_escape(q, p, &y);
-		p += x;
-		q += y;
+		int inchars_read, outchars_added;
+		inchars_read = copy_expand_vms_filename_escape(q, p, &outchars_added);
+		p += inchars_read;
+		q += outchars_added;
 		/* fix-me */
-		/* if y > 1, then this is a wide file specification */
+		/* if outchars_added > 1, then this is a wide file specification */
 		/* Wide file specifications need to be passed in Perl */
 		/* counted strings apparently with a unicode flag */
 	    }
 	    *q = 0;
 	    strcpy(dd->entry.d_name, new_name);
+	    dd->entry.d_namlen = strlen(dd->entry.d_name);
 	}
     }