if ($Devel) {
	$SIG{__WARN__} = $SIG{__DIE__} = sub {
		$Carp::CarpLevel = 1 if defined $^S && !$^S;
		$SIG{__WARN__} = $SIG{__DIE__} = undef;
		&dumpfromstart if defined $^S;
		confess $_[0] if defined $^S;
		die "exiting\n";
	}
}