diff -Nurd Tk-Pod-0.9943.orig/t/cmdline.t Tk-Pod-0.9943/t/cmdline.t
--- Tk-Pod-0.9943.orig/t/cmdline.t	2015-02-22 15:20:57.000000000 -0500
+++ Tk-Pod-0.9943/t/cmdline.t	2023-06-25 11:34:43.000000000 -0400
@@ -11,6 +11,7 @@
 use File::Basename qw(basename);
 use File::Spec;
 use Getopt::Long;
+use Config;
 
 use lib $FindBin::RealBin;
 use TkTest qw(display_test);
@@ -227,7 +228,21 @@
 
 sub run_tkpod {
     my($script, $this_opts_ref) = @_;
-    my @cmd = ($^X, "-Mblib=$blib", $script, "-geometry", "+10+10", @$this_opts_ref);
+    my @cmd;
+    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 @cmd, '/usr/bin/arch';
+	if ( $Config{"longsize"} == 4 ) {
+	    push @cmd, '-i386';   # 32-bit
+	} else {
+	    push @cmd, '-x86_64'; # 64-bit
+	}
+    }
+    push @cmd, $^X, "-Mblib=$blib", $script, "-geometry", "+10+10", @$this_opts_ref;
     warn "@cmd\n" if $DEBUG;
     if ($batch_mode) {
 	open(STDERR, ">" . File::Spec->devnull) unless $DEBUG;