sub lives_and (&$) {
	my ($test, $name) = @_;
	local $Test::Builder::Level = $Test::Builder::Level+1;
	{
		my $ok = \&Test::Builder::ok;
		no warnings;
		local *Test::Builder::ok = sub {
			$_[2] = $name unless defined $_[2];
			$ok->(@_);
		};
		use warnings;
		eval { $test->() } and return 1;
	};
	if ($@) {
		fail($name);
		diag("Died: $@");
	};
	return;
}