- $subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
- $cmd =~ s/\b$subcmd/$args/;
+ $subcmd .= " \\K" unless $subcmd =~ m/\\K/;
+ $cmd =~ s/$subcmd/$args/;
+ }
+
+ for my $param ($cmd =~ m{^[(\h]* (\w\S*)}gx) {
+ $param eq 'cat' or
+ runres(['which', $param])
+ or diag("dependency $param missing at $ref\n$cmd"), skip($name, 1);