0
"
ˆl–Ü4ý(&”ÔD¨ ÅÕÀ9q§ÔÅ£¿
ƒh¹ÁÄ
0
! ˆ
ƒŒ‹Ãa–Ü4ý(&”ÔD¨ ÅÕÀ³q§TÅ£Å
H
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/sys/devices/system/cpu/cpu1/node0/memory49
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/sys/devices/system/cpu/cpu1/node0/memory49
/ ˆl–Ãa¾””Ê:” õÀ
ã-©‹FÿÁ
ƒ}§C_‹ uÐb
&=LV[(ÀÇ $ÿ # Documentation at the __END__
package IO::Pty;
use strict;
use Carp;
use IO::Tty qw(TIOCSCTTY TCSETCTTY TIOCNOTTY);
use IO::File;
require POSIX;
use vars qw(@ISA $VERSION);
$VERSION = '1.16'; # keep same as in Tty.pm
@ISA = qw(IO::Handle);
eval { local $^W = 0; undef local $SIG{__DIE__}; require IO::Stty };
push @ISA, "IO::Stty" if ( not $@ ); # if IO::Stty is installed
sub new {
my ($class) = $_[0] || "IO::Pty";
$class = ref($class) if ref($class);
@_ <= 1 or croak 'usage: new $class';
my ( $ptyfd, $ttyfd, $ttyname ) = pty_allocate();
croak "Cannot open a pty" if not defined $ptyfd;
my $pty = $class->SUPER::new_from_fd( $ptyfd, "r+" );
croak "Cannot create a new $class from fd $ptyfd: $!" if not $pty;
$pty->autoflush(1);
bless $pty => $class;
my $slave = IO::Tty->new_from_fd( $ttyfd, "r+" );
croak "Cannot create a new IO::Tty from fd $ttyfd: $!" if not $slave;
$slave->autoflush(1);
${*$pty}{'io_pty_slave'} = $slave;
${*$pty}{'io_pty_ttyname'} = $ttyname;
${*$slave}{'io_tty_ttyname'} = $ttyname;
return $pty;
}
sub ttyname {
@_ == 1 or croak 'usage: $pty->ttyname();';
my $pty = shift;
${*$pty}{'io_pty_ttyname'};
}
sub close_slave {
@_ == 1 or croak 'usage: $pty->close