This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Restore directory extension and version in fileify under EFS.
authorCraig A. Berry <craigberry@mac.com>
Sat, 28 Jan 2012 15:22:04 +0000 (09:22 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 28 Jan 2012 15:22:04 +0000 (09:22 -0600)
commit839e16da0363c53aae2388f75df22258f1540677
treeecfdc69bd0f1051bf7c174778921f0f717f939f8
parent37769287773a12dbc22e9f93bf7f8c55068aafe2
Restore directory extension and version in fileify under EFS.

In df2786654 and 8a5aa89570, the traditional behavior of adding
the .DIR;1 onto a fileified directory spec was removed when
operating under Extended Filename Syntax.  Various scary comments
were added about its being a bug to add a type and version onto
a Unix-style path, but actually the CRTL appears to be perfectly
happy with, for example:

   stat('/foo/bar/baz.dir;1');

and without the extension, the home-grown rmdir() fails in the
case of a directory with no preceding path information.  E.g.,

   rmdir('foo');

was failing because there was no internal translation to foo.dir
before passing it to SYS$ERASE.

Moreover, even if there were something wrong with adding .DIR;1,
it has nothing to do with EFS.
vms/ext/filespec.t
vms/vms.c