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 -w use strict; require($ENV{PERL_CORE} ? "../../t/test.pl" : "./t/test.pl"); plan(tests => ($^O =~ /MSWin32/ ? 9 : 6)); my $Class = 'IO::File'; my $All_Chars = join '', "\r\n", map( chr, 1..255 ), "zzz\n\r"; my $File = 'bin.'.$$; my $Expect = quotemeta $All_Chars; use_ok( $Class ); can_ok( $Class, "binmode" ); ### file the file with binary data; ### use standard open to make sure we can compare binmodes ### on both. { my $tmp; open $tmp, ">$File" or die "Could not open '$File': $!"; binmode $tmp; print $tmp $All_Chars; close $tmp; } ### now read in the file, once without binmode, once with. ### without binmode should fail at least on win32... if( $^O =~ /MSWin32/ ) { my $fh = $Class->new; isa_ok( $fh, $Class ); ok( $fh->open($File), " Opened '$File'" ); my $cont = do { local $/; <$fh> }; unlike( $cont, qr/$Expect/, " Content match fails without binmode" ); } ### now with binmode, it must pass { my $fh = $Class->new; isa_ok( $fh, $Class ); ok( $fh->open($File), " Opened '$File' $!" ); ok( $fh->binmode, " binmode enabled" ); my $cont = do { local $/; <$fh> }; like( $cont, qr/$Expect/, " Content match passes with binmode" ); } unlink $File;