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 /
lib /
File /
Delete
Unzip
Name
Size
Permission
Date
Action
Spec
[ DIR ]
drwxr-xr-x
2016-10-10 17:38
.exists
0
B
-rw-r--r--
2016-10-10 17:39
Basename.pm
10.93
KB
-r--r--r--
2014-12-27 11:48
Basename.t
4.92
KB
-r--r--r--
2014-12-27 11:48
Compare.pm
4.23
KB
-r--r--r--
2014-12-27 11:48
Compare.t
3.86
KB
-r--r--r--
2014-12-27 11:48
Copy.pm
15.35
KB
-r--r--r--
2014-12-27 11:48
Copy.t
15.67
KB
-r--r--r--
2014-12-27 11:49
DosGlob.pm
7.81
KB
-r--r--r--
2014-12-27 11:48
Fetch.pm
45.17
KB
-r--r--r--
2014-12-27 11:48
Find.pm
32.49
KB
-r--r--r--
2014-12-27 11:49
Glob.pm
12.38
KB
-r--r--r--
2014-12-27 11:48
GlobMapper.pm
15.36
KB
-r--r--r--
2014-12-27 11:48
Path.pm
32.41
KB
-r--r--r--
2014-12-27 11:48
Spec.pm
10.25
KB
-r--r--r--
2015-01-10 12:06
Temp.pm
77.09
KB
-r--r--r--
2014-12-27 11:48
stat-7896.t
846
B
-r--r--r--
2014-12-27 11:48
stat.pm
9.84
KB
-r--r--r--
2014-12-27 11:48
stat.t
5.84
KB
-r--r--r--
2014-12-27 11:49
Save
Rename
#!./perl BEGIN { chdir 't' if -d 't'; @INC = '../lib'; } use strict; use warnings; use Test::More; use Config qw( %Config ); use File::Temp qw( tempfile tempdir ); use File::stat; my (undef, $file) = tempfile(); { my @stat = CORE::stat $file; my $stat = File::stat::stat($file); isa_ok($stat, 'File::stat', 'should build a stat object'); is_deeply($stat, \@stat, '... and matches the builtin'); my $i = 0; foreach ([dev => 'device number'], [ino => 'inode number'], [mode => 'file mode'], [nlink => 'number of links'], [uid => 'owner uid'], [gid => 'group id'], [rdev => 'device identifier'], [size => 'file size'], [atime => 'last access time'], [mtime => 'last modify time'], [ctime => 'change time'], [blksize => 'IO block size'], [blocks => 'number of blocks']) { my ($meth, $desc) = @$_; # On OS/2 (fake) ino is not constant, it is incremented each time SKIP: { skip('inode number is not constant on OS/2', 1) if $i == 1 && $^O eq 'os2'; is($stat->$meth, $stat[$i], "$desc in position $i"); } ++$i; } my $stat2 = stat $file; isa_ok($stat2, 'File::stat', 'File::stat exports stat, overriding the builtin'); is_deeply($stat2, $stat, '... and matches the direct call'); } sub test_X_ops { my ($file, $desc_tail, $skip) = @_; my @stat = CORE::stat $file; my $stat = File::stat::stat($file); my $lstat = File::stat::lstat($file); isa_ok($stat, 'File::stat', 'should build a stat object'); for my $op (split //, "rwxoRWXOezsfdlpSbcugkMCA") { if ($skip && $op =~ $skip) { note("Not testing -A $desc_tail"); next; } my $stat = $op eq 'l' ? $lstat : $stat; for my $access ('', 'use filetest "access";') { my ($warnings, $awarn, $vwarn, $rv); my $desc = $access ? "for -$op under use filetest 'access' $desc_tail" : "for -$op $desc_tail"; { local $SIG{__WARN__} = sub { my $w = shift; if ($w =~ /^File::stat ignores VMS ACLs/) { ++$vwarn; } elsif ($w =~ /^File::stat ignores use filetest 'access'/) { ++$awarn; } else { $warnings .= $w; } }; $rv = eval "$access; -$op \$stat"; } is($@, '', "Overload succeeds $desc"); if ($^O eq "VMS" && $op =~ /[rwxRWX]/) { is($vwarn, 1, "warning about VMS ACLs $desc"); } else { is($rv, eval "-$op \$file", "correct overload $desc") unless $access; is($vwarn, undef, "no warnings about VMS ACLs $desc"); } # 111640 - File::stat bogus index check in overload if ($access && $op =~ /[rwxRXW]/) { # these should all warn with filetest access is($awarn, 1, "produced the right warning $desc"); } else { # -d and others shouldn't warn is($awarn, undef, "should be no warning $desc") } is($warnings, undef, "no other warnings seen $desc"); } } } foreach ([file => $file], [dir => tempdir(CLEANUP => 1)]) { my ($what, $pathname) = @$_; test_X_ops($pathname, "for $what $pathname"); my $orig_mode = (CORE::stat $pathname)[2]; my $mode = 01000; while ($mode) { $mode >>= 1; my $mode_oct = sprintf "0%03o", $mode; chmod $mode, $pathname or die "Can't chmod $mode_oct $pathname: $!"; test_X_ops($pathname, "for $what with mode=$mode_oct"); } chmod $orig_mode, $pathname or die "Can't restore permissions on $pathname to ", sprintf("%#o", $orig_mode); } SKIP: { -e $^X && -x $^X or skip "$^X is not present and executable", 4; $^O eq "VMS" and skip "File::stat ignores VMS ACLs", 4; # Other tests running in parallel mean that $^X is read, updating its atime test_X_ops($^X, "for $^X", qr/A/); } my $stat = File::stat::stat($file); isa_ok($stat, 'File::stat', 'should build a stat object'); for (split //, "tTB") { eval "-$_ \$stat"; like( $@, qr/\Q-$_ is not implemented/, "-$_ overload fails" ); } SKIP: { local *STAT; skip("Could not open file: $!", 2) unless open(STAT, $file); isa_ok(File::stat::stat('STAT'), 'File::stat', '... should be able to find filehandle'); package foo; local *STAT = *main::STAT; my $stat2 = File::stat::stat('STAT'); main::isa_ok($stat2, 'File::stat', '... and filehandle in another package'); close STAT; # VOS open() updates atime; ignore this error (posix-975). my $stat3 = $stat2; if ($^O eq 'vos') { $$stat3[8] = $$stat[8]; } main::skip("Win32: different stat-info on filehandle", 1) if $^O eq 'MSWin32'; main::skip("dos: inode number is fake on dos", 1) if $^O eq 'dos'; main::skip("OS/2: inode number is not constant on os/2", 1) if $^O eq 'os2'; main::is_deeply($stat, $stat3, '... and must match normal stat'); } SKIP: { # RT #111638 skip "We can't check for FIFOs", 2 unless defined &Fcntl::S_ISFIFO; skip "No pipes", 2 unless defined $Config{d_pipe}; pipe my ($rh, $wh) or skip "Couldn't create a pipe: $!", 2; skip "Built-in -p doesn't detect a pipe", 2 unless -p $rh; my $pstat = File::stat::stat($rh); ok(!-p($stat), "-p should be false on a file"); ok(-p($pstat), "check -p detects a pipe"); } # Testing pretty much anything else is unportable. done_testing; # Local variables: # cperl-indent-level: 4 # indent-tabs-mode: nil # End: # # ex: set ts=8 sts=4 sw=4 et: