From: Graham Knop <haarg@haarg.org>
Date: Thu, 2 Jan 2014 02:02:26 +0000 (-0500)
Subject: warn about missing shells specified on the command line
X-Git-Tag: v2.000004~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Flocal-lib.git;a=commitdiff_plain;h=edcdb0112e8158f70297802e0980faa8e44d722c

warn about missing shells specified on the command line
---

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;
 }