Solve IO::Pty warning issues from Net::OpenSSH

dkhosla1 has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am using Net::OpenSSH, and if providing a password to a connection, it uses the IO:Pty package and gives a warning.

The connection is successful. The issue seems to be with grantpt()

WARN: IO::Pty::new:24: IO::Tty::pty_allocate(nonfatal): grantpt(): Operation not permitted

With debug it shows 'trying grantpt() ...' before this message.

1) any suggestions on how to have grantpt() be successful or not be attempted?

2) Or suppress that specific message or worst case suppress all warning messages from IO::Pty (It was suggested that I use '{ no warning; .. } but I don't want to suppress warnings from Net::OpenSSH itself)

Thanks!

Comment on Solve IO::Pty warning issues from Net::OpenSSH Download Code

Replies are listed 'Best First'.
Re: Solve IO::Pty warning issues from Net::OpenSSH by syphilis (Archbishop) on Jun 23, 2024 at 10:28 UTC
any suggestions on how to have grantpt() be successful or not be attempted? The issue arises because `HAVE_GRANTPT` is defined when building IO::Tty. I don't know why that symbol is defined. It appears to NOT be defined by IO::Tty. One possible solution (which should avoid the call to grantpt) is, in IO-Tty-1.20 source, to apply this simple patch to Tty.xs: `--- Tty.xs 2023-12-29 04:53:07.000000000 +1100 +++ Tty.xs_modified 2024-06-23 20:25:51.411610800 +1000 @@ -257,6 +257,7 @@ { mysig_t old_signal; old_signal = mysignal(SIGCHLD, SIG_DFL); +#undef HAVE_GRANTPT #if defined(HAVE_GRANTPT) #if PTY_DEBUG if (print_debug)` [download] Then rebuild and reinstall IO-Tty-1.20. Cheers, Rob	[reply] [d/l] [select]
Re: Solve IO::Pty warning issues from Net::OpenSSH by bliako (Abbot) on Jun 23, 2024 at 11:02 UTC
In the XS source code at https://metacpan.org/release/TODDR/IO-Tty-1.20/source/Tty.xs#L256, running the code it bothers you is controlled by the constant `HAVE_GRANTPT` which I believe is set during compiling Perl. So, it will try running it if your Perl installation found that you have it. The warning is about permissions. So perhaps you can investigate and solve it at the OS level. Warnings can be controlled also at the block level. But you can not tell a module to stop warning unless that module has this line at its preamble: `use warnings::register;` in which case you use `no warnings 'My::Module';` but that means you raise an issue with the author to include that line. Note that this method failed for me for some reason... Your other option is to create a warn-handler and filter out (via regex) that particular warning: `# from https://www.reddit.com/r/perl/comments/1256khf/comment/je3wh0m/ +?utm_source=share&utm_medium=web3x&utm_name=web3xcss&utm_term=1&utm_c +ontent=share_button local $SIG{__WARN__} = sub { return if $_[0] =~ /IO::Pty blah blah/; print STDERR "$_\n"; };` [download]	[reply] [d/l] [select]