Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
IO /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
IO.t
2.59
KB
-r--r--r--
2014-12-27 11:48
cachepropagate-tcp.t
1.3
KB
-r--r--r--
2014-12-27 11:48
cachepropagate-udp.t
1.14
KB
-r--r--r--
2014-12-27 11:48
cachepropagate-unix.t
2.87
KB
-r--r--r--
2014-12-27 11:48
io_const.t
577
B
-r--r--r--
2014-12-27 11:48
io_dir.t
1.42
KB
-r--r--r--
2014-12-27 11:48
io_dup.t
1.17
KB
-r--r--r--
2014-12-27 11:48
io_file.t
1.33
KB
-r--r--r--
2014-12-27 11:48
io_file_export.t
517
B
-r--r--r--
2014-12-27 11:48
io_linenum.t
1.26
KB
-r--r--r--
2014-12-27 11:49
io_multihomed.t
2.2
KB
-r--r--r--
2014-12-27 11:48
io_pipe.t
2.54
KB
-r--r--r--
2014-12-27 11:48
io_poll.t
1.36
KB
-r--r--r--
2014-12-27 11:48
io_sel.t
3.21
KB
-r--r--r--
2014-12-27 11:48
io_sock.t
8.78
KB
-r--r--r--
2014-12-27 11:48
io_taint.t
1.29
KB
-r--r--r--
2014-12-27 11:49
io_tell.t
1.36
KB
-r--r--r--
2014-12-27 11:48
io_udp.t
1.99
KB
-r--r--r--
2014-12-27 11:48
io_unix.t
2.41
KB
-r--r--r--
2014-12-27 11:48
io_utf8.t
833
B
-r--r--r--
2014-12-27 11:48
io_utf8argv.t
939
B
-r--r--r--
2014-12-27 11:48
io_xs.t
1.29
KB
-r--r--r--
2014-12-27 12:38
Save
Rename
#!./perl BEGIN { unless ($] >= 5.008 and find PerlIO::Layer 'perlio') { print "1..0 # Skip: not perlio\n"; exit 0; } } require($ENV{PERL_CORE} ? "../../t/test.pl" : "./t/test.pl"); my $buf_size_count = 8200; # Above default buffer size of 8192 plan(tests => 5 + 2 * $buf_size_count); my $io; use_ok('IO::File'); $io = IO::File->new; ok($io->open("io_utf8", ">:utf8"), "open >:utf8"); ok((print $io chr(256)), "print chr(256)"); undef $io; $io = IO::File->new; ok($io->open("io_utf8", "<:utf8"), "open <:utf8"); is(ord(<$io>), 256, "readline chr(256)"); for my $i (0 .. $buf_size_count - 1) { is($io->ungetc($i), $i, "ungetc of $i returns itself"); } for (my $i = $buf_size_count - 1; $i >= 0; $i--) { is(ord($io->getc()), $i, "getc gets back $i"); } undef $io; END { 1 while unlink "io_utf8"; }