diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-20 00:21:14 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2016-10-30 16:35:58 +0000 |
commit | a92b0585c8d2438c45b25ff92185d263901f4d87 (patch) | |
tree | ad67a8090d27971d23f4195a06e3a7422861fe96 | |
parent | 1ad24b103fc3ab3f234c8f6ae3019730eda4c549 (diff) |
archive_query: Support further arguments to methods
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | dgit | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -962,13 +962,13 @@ sub must_getcwd () { our %rmad; -sub archive_query ($) { - my ($method) = @_; +sub archive_query ($;@) { + my ($method) = shift @_; my $query = access_cfg('archive-query','RETURN-UNDEF'); $query =~ s/^(\w+):// or badcfg "invalid archive-query method \`$query'"; my $proto = $1; my $data = $'; #'; - { no strict qw(refs); &{"${method}_${proto}"}($proto,$data); } + { no strict qw(refs); &{"${method}_${proto}"}($proto,$data,@_); } } sub pool_dsc_subpath ($$) { |