diff -Nurd Moose-1.08/t/basics/global_destruction.t Moose-1.08-new/t/basics/global_destruction.t
--- Moose-1.08/t/basics/global_destruction.t	2010-06-11 19:58:38.000000000 -0400
+++ Moose-1.08-new/t/basics/global_destruction.t	2010-08-06 15:01:56.000000000 -0400
@@ -4,6 +4,7 @@
 use warnings;
 
 use Test::More;
+use Config;
 
 {
     package Foo;
@@ -43,9 +44,22 @@
     my $bar = Bar->new;
 }
 
+my $cmd = "$^X";
+if ($] >= 5.010 && $Config{"byteorder"} =~ /^1/) {
+    # little-endian means intel (not powerpc), for which fink has
+    # multiple single-arch distros that are seen by a single (fat)
+    # perl interp from apple for a perl version supported by fink
+    # (i.e., starting with 5.10.0). This is the logic taken from
+    # Fink::PkgVersion as of fink-0.29.13.
+    if ( $Config{"longsize"} == 4 ) {
+	$cmd = "/usr/bin/arch -i386 $cmd";   # 32-bit
+    } else {
+	$cmd = "/usr/bin/arch -x86_64 $cmd"; # 64-bit
+    }
+}
 ok(
     $_,
     'in_global_destruction state is passed to DEMOLISH properly (true)'
-) for split //, `$^X t/basics/global-destruction-helper.pl`;
+) for split //, `$cmd t/basics/global-destruction-helper.pl`;
 
 done_testing;