diff -Nurd -x'*~' Class-Accessor-Constructor-1.100880.orig/t/00-compile.t Class-Accessor-Constructor-1.100880/t/00-compile.t
--- Class-Accessor-Constructor-1.100880.orig/t/00-compile.t	2010-03-29 14:30:13.000000000 -0400
+++ Class-Accessor-Constructor-1.100880/t/00-compile.t	2011-02-13 08:24:25.000000000 -0500
@@ -6,6 +6,7 @@
 use Test::More;
 use File::Find;
 use File::Temp qw{ tempdir };
+use Config;
 
 my @modules;
 find(
@@ -29,7 +30,21 @@
     # fake home for cpan-testers
     # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
 
-    is( qx{ $^X -Ilib -e "use $_; print '$_ ok'" }, "$_ ok", "$_ loaded ok" )
+    my @command;
+    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.
+        push @command, '/usr/bin/arch';
+        if ( $Config{"longsize"} == 4 ) {
+            push @command, '-i386';   # 32-bit
+        } else {
+            push @command, '-x86_64'; # 64-bit
+        }
+    }
+    is( qx{ @command $^X -Ilib -e "use $_; print '$_ ok'" }, "$_ ok", "$_ loaded ok" )
         for sort @modules;
 
     SKIP: {