X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=blobdiff_plain;f=t%2Fshell.t;h=54f92512e5cdb7e57b912d183b66a66a85dc4b50;hp=0d5ce6118d5d95668243cd603bdbfcb5b1d24bc7;hb=edcdb0112e8158f70297802e0980faa8e44d722c;hpb=57987bd1c4619b87c58818c26689a5a7e956093d

diff --git a/t/shell.t b/t/shell.t
index 0d5ce61..54f9251 100644
--- a/t/shell.t
+++ b/t/shell.t
@@ -47,11 +47,20 @@ for my $shell (
   },
 ) {
   my $name = $shell->{name};
-  next
-    if @ARGV && !grep {$_ eq $name} @ARGV;
-  $shell->{shell} = which($name) || next;
+  $shell->{shell} = which($name);
   $shell->{ext}   ||= $name;
   $shell->{perl}  ||= qq{"$^X"};
+  if (@ARGV) {
+    next
+      if !grep {$_ eq $name} @ARGV;
+    if (!$shell->{shell}) {
+      warn "unable to find executable for $name";
+      next;
+    }
+  }
+  elsif (!$shell->{shell}) {
+    next;
+  }
   push @shells, $shell;
 }