Fix stdin inheritance for system and backticks on VMS.
authorCraig A. Berry <craigberry@mac.com>
Sat, 30 Nov 2013 14:47:09 +0000 (08:47 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 30 Nov 2013 14:59:14 +0000 (08:59 -0600)
commite2d6c6fbf5bb83382dc53d8168358447160042a0
tree0b438589b8e6655656d153432de23177b3c23764
parent6b7c504113d6a1351d094bcb937e5d90c03c6355
Fix stdin inheritance for system and backticks on VMS.

The documentation to LIB$SPAWN says that standard input will be
inherited from the parent if not specified, and we've been
depending on that.  But it seems not to actually work that way
as a simple

    $ perl -e "system('edit foo.tmp');"

was failing due to the input not being a terminal.  So set up the
input explicitly using the same mechanism we've always used for
output and error.

Except when SYS$INPUT is a "directory," which probably means it's
a channel open on a volume that holds a command procedure.
vms/vms.c