-#!./perl -w
+#!./perl
BEGIN {
- chdir 't' if -d 't';
- @INC = qw(../lib);
+ 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 strict;
+use warnings;
+no warnings 'once';
use Test::More tests => 14;
# line 50
my $file = 'xreftest.out';
+open SAVEOUT, ">&STDOUT" or diag $!;
+close STDOUT;
# line 100
our $compilesub = B::Xref::compile("-o$file");
ok( ref $compilesub eq 'CODE', "compile() returns a coderef ($compilesub)" );
$compilesub->(); # Compile this test script
-
-#END { unlink $file or diag "END block failed: $!" }
+close STDOUT;
+open STDOUT, ">&SAVEOUT" or diag $!;
# Now parse the output
# line 200