I have created a port of IO::TTY that builds and runs perfect under OE-MVS.
I've tried to email the author, [EMAIL PROTECTED], without success, so I am
posting the changes here. I hope to find a way to get them into the module
permanently, but for now, this lets Expect/Expect::Simple work.
Joe Bryant
Sr. Sys. Prog.
Rite Aid Corp.
Makefile.PL
49a50,51
> $define{'-D_MVS'}=undef
> if ($ENV{OSTYPE}=~/mvs/sig);
Tty.xs
630a631,649
> #if defined(_MVS)
> {
> char devname[256];
> int dev;
> #if PTY_DEBUG
> if (print_debug)
> fprintf(stderr, "trying MVS /dev/ptym/ptypXXXX...\n");
> #endif
> for (dev=0;dev<9999;dev++) {
> sprintf(devname,"/dev/ptyp%04.4d",dev);
> *ptyfd=open(devname,O_RDWR | O_NOCTTY);
> if (*ptyfd >= 0 && open_slave(ptyfd, ttyfd, namebuf,
namebuflen))
> break;
> }
> if (*ptyfd >= 0)
> break;
> }
> #endif
>
