x3x3x3x_5h3ll

— 53cur3 — 5h3ll_1d —

Linux vps-10654784.cedaps.org.br 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
INFO SERVER : Apache PHP : 7.4.33
/lib64/perl5/vendor_perl/IO/

162.240.100.168

[ NAME ]	[ SIZE ]	[ PERM ]	[ DATE ]	[ ACTN ]
+FILE +DIR
Tty	dir	drwxr-xr-x	2023-04-05 00:02	R D
Pty.pm	8.505 KB	-rw-r--r--	2010-10-11 18:08	R E G D
Tty.pm	7.35 KB	-rw-r--r--	2010-10-11 18:09	R E G D
REQUEST EXIT

# Documentation at the __END__ # -*-cperl-*- package IO::Tty; use IO::Handle; use IO::File; use IO::Tty::Constant; use Carp; require POSIX; require DynaLoader; use vars qw(@ISA $VERSION $XS_VERSION $CONFIG $DEBUG); $VERSION = '1.10'; $XS_VERSION = "1.10"; @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 BOOT_XS: { # If I inherit DynaLoader then I inherit AutoLoader and I DON'T WANT TO require DynaLoader; # DynaLoader calls dl_load_flags as a static method. *dl_load_flags = DynaLoader->can('dl_load_flags'); do { defined(&bootstrap) ? \&bootstrap : \&DynaLoader::bootstrap }->(__PACKAGE__); } sub import { IO::Tty::Constant->export_to_level(1, @_); } sub open { my($tty,$dev,$mode) = @_; IO::File::open($tty,$dev,$mode) or return undef; $tty->autoflush; 1; } sub clone_winsize_from { my ($self, $fh) = @_; croak "Given filehandle is not a tty in clone_winsize_from, called" if not POSIX::isatty($fh); return 1 if not POSIX::isatty($self); # ignored for master ptys my $winsize = " "x1024; # preallocate memory ioctl($fh, &IO::Tty::Constant::TIOCGWINSZ, $winsize) and ioctl($self, &IO::Tty::Constant::TIOCSWINSZ, $winsize) and return 1; warn "clone_winsize_from: error: $!" if $^W; return undef; } sub set_raw($) { require POSIX; my $self = shift; return 1 if not POSIX::isatty($self); my $ttyno = fileno($self