summaryrefslogtreecommitdiff
path: root/dgit
diff options
context:
space:
mode:
Diffstat (limited to 'dgit')
-rwxr-xr-xdgit10
1 files changed, 5 insertions, 5 deletions
diff --git a/dgit b/dgit
index 80adf1f..ed6827b 100755
--- a/dgit
+++ b/dgit
@@ -1223,10 +1223,8 @@ sub archive_api_query_cmd ($) {
return @cmd;
}
-sub api_query_raw ($$;$) {
- my ($data, $subpath, $ok404) = @_;
- badcfg __ "ftpmasterapi archive query method takes no data part"
- if length $data;
+sub api_query_raw ($;$) {
+ my ($subpath, $ok404) = @_;
my @cmd = archive_api_query_cmd($subpath);
my $url = $cmd[$#cmd];
push @cmd, qw(-w %{http_code});
@@ -1245,7 +1243,9 @@ sub api_query_raw ($$;$) {
sub api_query ($$;$) {
my ($data, $subpath, $ok404) = @_;
use JSON;
- my $json = api_query_raw $data, $subpath, $ok404;
+ badcfg __ "ftpmasterapi archive query method takes no data part"
+ if length $data;
+ my $json = api_query_raw $subpath, $ok404;
return undef unless defined $json;
return decode_json($json);
}