+ "r|related=s" => sub { # only patches related to that
+ $relatedto = parse_patch_spec($_[1]);
+ },
+ "c|related-current" => sub { # only patches related to current
+ my $current_branch = current_branch();
+ die "-c only permitted when on a topbloke branch\n"
+ unless $current_branch->{Kind} =~ m/^(?:tip|base)$/;
+ $relatedto = $current_branch;
+ },