| Subject: | Could do with better error reporting on Operating Systems that can't set a controlling terminal e.g. BeOS |
In Pty.pm, please add the following code:
if (defined TIOCSCTTY) {
if (not defined ioctl( ${*$self}{'io_pty_slave'}, TIOCSCTTY, 0 )) {
warn "warning: TIOCSCTTY failed, slave might not be set as
controlling terminal: $!" if $^W;
}
} elsif (defined TCSETCTTY) {
if (not defined ioctl( ${*$self}{'io_pty_slave'}, TCSETCTTY, 0 )) {
warn "warning: TCSETCTTY failed, slave might not be set as
controlling terminal: $!" if $^W;
}
+ } else {
+ warn "warning: You have neither TIOCSCTTY nor TCSETCTTY on your
system\n" if $^W;
+ return 0;
}