#! /usr/bin/perl
-use Data::Dumper;
-
use File::FnMatch qw(fnmatch);
use MdwOpt;
sub usage (*) {
my ($fh) = @_;
print $fh
- "usage: $ME [-j N] =ARCHGLOB|:FLAVOUR ... [--] CMD [ARGS ...]\n";
+ "usage: $ME [-kns] [-j N] =ARCHGLOB|:FLAVOUR ... [--] CMD [ARGS ...]\n";
}
sub barf ($) {
my ($msg) = @_;