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"); } use utf8; plan(tests => 2); open my $fh, ">:raw", 'io_utf8argv'; print $fh "\xce\x9c\xe1\xbd\xb7\xce\xb1\x20\xcf\x80\xe1\xbd\xb1\xcf\x80\xce". "\xb9\xce\xb1\x2c\x20\xce\xbc\xe1\xbd\xb0\x20\xcf\x80\xce\xbf\xce". "\xb9\xe1\xbd\xb0\x20\xcf\x80\xe1\xbd\xb1\xcf\x80\xce\xb9\xce\xb1". "\xcd\xbe\x0a"; close $fh or die "close: $!"; use open ":std", ":utf8"; use IO::Handle; @ARGV = ('io_utf8argv') x 2; is *ARGV->getline, "Μία πάπια, μὰ ποιὰ πάπια;\n", 'getline respects open pragma when magically opening ARGV'; is join('',*ARGV->getlines), "Μία πάπια, μὰ ποιὰ πάπια;\n", 'getlines respects open pragma when magically opening ARGV'; END { 1 while unlink "io_utf8argv"; }