This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Error check VMS's backticks stdin inheritance.
authorCraig A. Berry <craigberry@mac.com>
Sun, 8 Dec 2013 14:06:58 +0000 (08:06 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 8 Dec 2013 14:06:58 +0000 (08:06 -0600)
commit3f80905d826ca575b32dfd055bb589024a4cc76c
treed3b52f34889248b4439cf38646decc58d7742771
parent9adf376384dd320dfdc45ddce1798bd3f2a704ac
Error check VMS's backticks stdin inheritance.

This is a follow-up to e2d6c6fbf5bb.  The use case I've seen is
that the translation of SYS$INPUT succeeds but the stat on the
resulting file/device fails, possibly due to object protections.
So we would be giving the child something it can't open.

Add error checking to the logic so in order to set up inheritance
of SYS$INPUT:

 1.) The translation of SYS$INPUT must succeed.
 2.) stat() on the resulting spec must succeed.
 3.) The resulting spec must not be a directory.
vms/vms.c