view release on metacpan or  search on metacpan

t/01-compiler.t  view on Meta::CPAN

	$CC = File::Spec->file_name_is_absolute($CC) ? $CC : which($CC)
		or plan skip_all => "could not find $CC";
	
	-x $CC
		or plan skip_all => "$CC is not executable";
};

use Alien::LibXML;
use Text::ParseWords qw( shellwords );

sub file ($) { File::Spec->catfile(split m{/}, $_[0]) }

my @libs   = shellwords( Alien::LibXML->libs );
my @cflags = shellwords( Alien::LibXML->cflags );

@libs = map { $_ =~ /^-L(.*)$/ && -d File::Spec->catfile($1, '.libs') ? ($_, "-L" . File::Spec->catfile($1, '.libs')) : $_ } @libs;

if($^O eq 'MSWin32') {
	# on windows, the dll must be in the PATH
	push @PATH, $_ for map { my $p = $_; $p =~ s{^-L}{}; $p } grep { /^-L/ } @libs;
}