Instead of using force, why don't you fix the actual test and send a patch?

Here is often how I check if a binary is available and executable (usually in my Makefile.PL files, but I digress... here's one example, and another):

use strict;
use warnings;

use Test::More;

my $is_win = $^O =~ /MSWin/;

my ($sep, $bin) = $is_win ? (';', 'perl.exe') : (':', 'perl');

my $perl_available = grep { -x "$_/$bin" } split /$sep/, $ENV{PATH};

ok $perl_available, "perl binary was found and is executable"; 

done_testing();
[download]

Update: Modified code to work on both Windows and Unixy platforms.

"my mind wonders why someone hasn't fixed that."

Probably because nobody uses it.