sub showhelp {
my $prog=basename($0);
print "Usage: $prog [options]\n\n";
- print " $prog is a part of debhelper. See debhelper(1)\n";
+ print " $prog is a part of debhelper. See debhelper(7)\n";
print " and $prog(1) for complete usage instructions.\n";
exit(1);
}
"r" => \$options{R_FLAG},
"no-restart-on-upgrade" => \$options{R_FLAG},
+ "no-start" => \$options{NO_START},
"k" => \$options{K_FLAG},
"keep" => \$options{K_FLAG},
"h|help" => \&showhelp,
"mainpackage=s" => \$options{MAINPACKAGE},
+
+ "list-missing" => \$options{LIST_MISSING},
+
+ "L|libpackage=s" => \$options{LIBPACKAGE},
+
+ "name=s" => \$options{NAME},
"<>" => \&NonOption,
);
}
push @{$options{DOPACKAGES}},GetPackages();
}
-
+
# Remove excluded packages from the list of packages to act on.
+ # Also unique the list, in case some options were specified that
+ # added a package to it twice.
my @package_list;
my $package;
+ my %packages_seen;
foreach $package (@{$options{DOPACKAGES}}) {
if (! $exclude_package{$package}) {
- push @package_list, $package;
+ if (! exists $packages_seen{$package}) {
+ $packages_seen{$package}=1;
+ push @package_list, $package;
+ }
}
}
@{$options{DOPACKAGES}}=@package_list;