_sysptycap_pty: rename

1 files changed, 2 insertions, 2 deletions

diff --git a/perl5/Local/Interactive.pm b/perl5/Local/Interactive.pm
index 4ac8e92f..6447d2eb 100644
--- a/perl5/Local/Interactive.pm
+++ b/perl5/Local/Interactive.pm
@@ -151,7 +151,7 @@ fallback to script(1) then this is not a problem.
 
 sub system_pty_capture {
     if (eval { require IO::Pty } and -t STDOUT) {
-        return _sysptycap_tty(@_);
+        return _sysptycap_pty(@_);
     } else {
         return _sysptycap_script(@_);
     }
@@ -189,7 +189,7 @@ sub _sysptycap_script {
 # - IO::Pty::Easy's 'new' and 'read' methods
 # - https://www.perlmonks.org/?node_id=299012
 # - https://www.perlmonks.org/?node_id=392942
-sub _sysptycap_tty {
+sub _sysptycap_pty {
     my $pty = IO::Pty->new;
     my $slave = $pty->slave;
     $slave->clone_winsize_from(\*STDIN) if POSIX::isatty(*STDIN);