Change 31385 by [EMAIL PROTECTED] on 2007/06/15 03:19:46
Don't let the home-grown readdir() on VMS return results with
ODS-5 escapes (i.e., report foo.tar.gz, not foo^.tar.gz).
Affected files ...
... //depot/perl/vms/vms.c#199 edit
Differences ...
==== //depot/perl/vms/vms.c#199 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#198~31360~ 2007-06-08 08:28:29.000000000 -0700
+++ perl/vms/vms.c 2007-06-14 20:19:46.000000000 -0700
@@ -8759,9 +8759,6 @@
DIR *dd;
char *dir;
Stat_t sb;
- int unix_flag = 0;
-
- unix_flag = is_unix_filespec(name);
Newx(dir, VMS_MAXRSS, char);
if (do_tovmspath(name,dir,0,NULL) == NULL) {
@@ -8792,8 +8789,12 @@
dd->context = 0;
dd->count = 0;
dd->flags = 0;
- if (unix_flag)
- dd->flags = PERL_VMSDIR_M_UNIXSPECS;
+ /* By saying we always want the result of readdir() in unix format, we
+ * are really saying we want all the escapes removed. Otherwise the
caller,
+ * having no way to know whether it's already in VMS format, might send it
+ * through tovmsspec again, thus double escaping.
+ */
+ dd->flags = PERL_VMSDIR_M_UNIXSPECS;
dd->pat.dsc$a_pointer = dd->pattern;
dd->pat.dsc$w_length = strlen(dd->pattern);
dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
End of Patch.
