This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Escape EFS for directory portion in tovmsspec.
authorCraig A. Berry <craigberry@mac.com>
Wed, 19 Nov 2014 01:03:51 +0000 (19:03 -0600)
committerCraig A. Berry <craigberry@mac.com>
Wed, 19 Nov 2014 02:36:39 +0000 (20:36 -0600)
commite283d9f3eca0ba7ff8f9bb3fe8cb8611758c7918
treeae674787f528076255e56463d7c1bf55627755ed
parent3ef6b8e9a9da2a3d97ef32e4df629373ca2ab5f9
Escape EFS for directory portion in tovmsspec.

For some reason extended characters were only being escaped in
the final component of the path, but not in the directory portion,
the one exception being dots.  We need to give the entire path
the same treatment.  There is probably considerable opportunity
for further consolidation and refactoring in what we escape, but
at least now ../foo  bar/ correctly becomes [-.foo^_^_bar].

The reverse case has similar problems and is a TODO.
ext/VMS-Filespec/t/filespec.t
vms/vms.c