use Config;
use vars qw($bits_are_64 $usrlocal $defarch $noarch);

$bits_are_64 = unpack("L!", pack("LL", 0x12345678, 0x9ABCDEF)) >= 2**32;
$usrlocal = scalar(grep m|^/\w+/local/|, @INC);
$defarch = $Config{byteorder} eq 4321
	? 'ppc'
	: $Config{byteorder} eq 12345678
		? 'x86_64'
		: $Config{byteorder} eq 1234
			? 'i386'
			: 'ppc';  # what else can we do?
$noarch  = $Config{ccflags} !~ /\barch\b/;

sub fixargs {
	my $ARGS = shift;
	for (qw(LDDLFLAGS LDFLAGS CCFLAGS)) {
		$ARGS->{$_} =~ s/\s?-arch x86_64\s?/ /g;
#		$ARGS->{$_} =~ s/\s?-arch ppc(?:\d+)?\s?/ /g;
		$ARGS->{$_} =~ s|-[LI]/\w+/local/\S+| |g unless $usrlocal > 1;
		if ($noarch) {
			$ARGS->{$_} .= " -arch $defarch";
		}
	}
}

1;