Commit f2985989 authored by Simon Marlow's avatar Simon Marlow
Browse files

add --no-<tag>, so e.g. we can omit DPH with --no-dph

parent 5349ff27
......@@ -311,6 +311,9 @@ sub scmall {
elsif ($command =~ /^(?:g|ge|get)$/) {
# Skip any repositories we have not included the tag for
if (not defined($tags{$tag})) {
$tags{$tag} = 0;
}
if ($tags{$tag} == 0) {
next;
}
......@@ -484,9 +487,11 @@ sub main {
}
# --<tag> says we grab the libs tagged 'tag' with
# 'get'. It has no effect on the other commands.
elsif ($arg =~ m/^--/) {
$arg =~ s/^--//;
$tags{$arg} = 1;
elsif ($arg =~ m/^--no-(.*)$/) {
$tags{$1} = 0;
}
elsif ($arg =~ m/^--(.*)$/) {
$tags{$1} = 1;
}
else {
unshift @_, $arg;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment