This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make readdir on VMS only unixify when asked.
authorCraig A. Berry <craigberry@mac.com>
Fri, 15 Feb 2013 00:10:55 +0000 (18:10 -0600)
committerCraig A. Berry <craigberry@mac.com>
Fri, 15 Feb 2013 03:41:20 +0000 (21:41 -0600)
commit6d53ee2943e4ba809028d3b53d2e3098450ad493
treee67325cd9cdad42baf46e0314cfabe64d0f6af72
parent8a753a87054595677fe03db54f83e97dd90002ea
Make readdir on VMS only unixify when asked.

We've been making our home-grown readdir implementation convert
all its results to Unix format since a096370a74e8.  Since readdir
returns relative paths, the usual volume and directory syntax
differences that distinguish VMS and Unix paths don't really apply.

But what does apply is whether the escaping of extended characters
is passed through or removed, and converting to Unix syntax removes
those escapes.  In order to enable extended filename syntax, though,
we're really going to need the escapes.  For example, rmdir will
not be able to remove a directory foo.bar if it's referred to as
[.foo.bar] because a dot is the traditional directory delimiter.
The directory needs to be specified as [.foo^.bar] for rmdir to
delete it successfully.

So make readdir return filespecs in native format unless explicitly
requested to report all filenames in Unix format.
vms/vms.c