Fix command existence checks without which

Author: ferki

ChangeLog

@@ -11,6 +11,7 @@ Revision history for Rex
  - Prefer GNU tools on Solaris
  - Fix parsing FreeBSD memory details
  - Recognize laundry memory on FreeBSD
+ - Fix command existence checks without which
 
  [DOCUMENTATION]
 

lib/Rex/Interface/Exec/Base.pm

@@ -54,7 +54,7 @@ sub execute_line_based_operation {
 sub can_run {
   my ( $self, $commands_to_check, $check_with_command ) = @_;
 
-  $check_with_command ||= "which";
+  $check_with_command ||= "command -v";
 
   my $exec  = Rex::Interface::Exec->create;
   my $cache = Rex::get_cache();

lib/Rex/Interface/Exec/Local.pm

@@ -114,7 +114,7 @@ sub exec {
 sub can_run {
   my ( $self, $commands_to_check, $check_with_command ) = @_;
 
-  $check_with_command ||= $^O =~ /^MSWin/i ? 'where' : 'which';
+  $check_with_command ||= $^O =~ /^MSWin/i ? 'where' : 'command -v';
 
   return $self->SUPER::can_run( $commands_to_check, $check_with_command );
 }

t/can_run.t

@@ -11,7 +11,7 @@ use Test::Warnings;
 use Rex::Commands::Run;
 
 {
-  my $command_to_check = $^O =~ /^MSWin/ ? 'where' : 'which';
+  my $command_to_check = $^O =~ /^MSWin/ ? 'where' : 'sh';
   my $result           = can_run($command_to_check);
   ok( $result, 'Found checker command' );
 }
@@ -23,14 +23,14 @@ use Rex::Commands::Run;
 }
 
 {
-  my @commands_to_check = $^O =~ /^MSWin/ ? 'where' : 'which';
+  my @commands_to_check = $^O =~ /^MSWin/ ? 'where' : 'sh';
   push @commands_to_check, 'non-existing command';
   my $result = can_run(@commands_to_check);
   ok( $result, 'Multiple commands - existing first' );
 }
 
 {
-  my @commands_to_check = $^O =~ /^MSWin/ ? 'where' : 'which';
+  my @commands_to_check = $^O =~ /^MSWin/ ? 'where' : 'sh';
   unshift @commands_to_check, 'non-existing command';
   my $result = can_run(@commands_to_check);
   ok( $result, 'Multiple commands - non-existing first' );