#!/usr/bin/perl

use strict;
use File::Find qw(find);

$ENV{PERL_DL_NONLAZY} = $ENV{LD_BIND_NOW} = 1;
my $RC;

sub wanted {
	my $rc;
	if ($_ eq "t" && -d $_) {
		my @tests = <t/*.t>;
		@tests or return;
		print "TestDir $File::Find::name\n";
		system "mkdir -p blib/lib blib/arch";
		$rc = system $^X,
			qw(-MExtUtils::Command::MM -e test_harness) , @tests;
	} elsif ($_ eq "test.pl" && -f $_) {
		print "TestFile $File::Find::name\n";
		system "mkdir -p blib/lib blib/arch";
		$rc = system $^X, "test.pl";
	}
	$RC ||= $rc;
}

find \&wanted => ".";
exit $RC;