This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle invalid directory spec with EFS in pathify_dirspec.
authorCraig A. Berry <craigberry@mac.com>
Sun, 25 Nov 2012 00:46:44 +0000 (18:46 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 25 Nov 2012 01:17:19 +0000 (19:17 -0600)
commit0753128385586b74fb493c6e49d37e471ee085fb
tree3eca1a4d45237eb881af07a2ca2eff4b6dc23277
parentc6c09ee83a5807437228496363dc96efab78f90a
Handle invalid directory spec with EFS in pathify_dirspec.

When Extended Filename Syntax is enabled on VMS (which is not [yet]
the default), we were allowing invalid directory specifications
consisting of a .DIR extension but some version other than ;1 to
be passed through.

Now we flag that as an invalid directory just as we were doing
without EFS.  This gets a test passing in vms/ext/filespec.t that
was failing under EFS.
vms/vms.c