allow hooks to add options even to --setup

master
joey 2006-07-30 07:41:26 +00:00
parent 7e35ad2cd9
commit 0f45548333
2 changed files with 6 additions and 6 deletions

View File

@ -104,6 +104,12 @@ sub loadplugins () { #{{{
error("Failed to load plugin $mod: $@");
}
}
run_hooks(getopt => sub { shift->() });
if (grep /^-/, @ARGV) {
print STDERR "Unknown option: $_\n"
foreach grep /^-/, @ARGV;
usage();
}
} #}}}
sub error ($) { #{{{

View File

@ -69,12 +69,6 @@ sub getconfig () { #{{{
if (! $config{setup}) {
loadplugins();
run_hooks(getopt => sub { shift->() });
if (grep /^-/, @ARGV) {
print STDERR "Unknown option: $_\n"
foreach grep /^-/, @ARGV;
usage();
}
usage() unless @ARGV == 2;
$config{srcdir} = possibly_foolish_untaint(shift @ARGV);
$config{destdir} = possibly_foolish_untaint(shift @ARGV);