blob: 4979ea54a4072af3a5d2219fd33ee693946b1b9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!./perl -Tw
BEGIN {
if ($ENV{PERL_CORE}){
chdir('t') if -d 't';
@INC = ('.', '../lib');
} else {
unshift @INC, 't';
}
require Config;
if (($Config::Config{'extensions'} !~ /\bB\b/) ){
print "1..0 # Skip -- Perl configured without B module\n";
exit 0;
}
}
use Test::More tests => 1;
use_ok('B::Bblock', qw(find_leaders));
# Someone who understands what this module does, please fill this out.
|
