summaryrefslogtreecommitdiff
path: root/infra
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2015-05-03 11:30:26 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2015-05-31 11:54:10 +0100
commitffcf3ccafd44190803adffa74730034fbba0b5ac (patch)
tree14a656fe36a29a6352965c4fb6488b3388d9ba2a /infra
parentbef4fbf5bb46be7ddb1e78d6ebca866648aa9dbf (diff)
dgit-repos-policy-debian: WIP bugfixes etc.
Diffstat (limited to 'infra')
-rwxr-xr-xinfra/dgit-repos-policy-debian6
1 files changed, 3 insertions, 3 deletions
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index e00fb5a..2e0bcc7 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -23,7 +23,7 @@ our $dgitlive = shift @ARGV // die "need DGIT-LIVE-DIR";
our $action = shift @ARGV // die "need ACTION";
our $publicmode = 02775;
-our $new_upload_propagation_slop = 3600*4 + 100;
+our $new_upload_propagation_slop = 3600*4 + 100;# fixme config;
our $poldbh;
our $pkg;
@@ -259,8 +259,8 @@ sub action_push () {
sub action_push_confirm () {
getpackage();
- die unless @ARGV;
- my $freshrepo = shift @ARGV;
+ die unless @ARGV >= 5;
+ my $freshrepo = $ARGV[4];
my $initq = $poldbh->prepare(<<END);
SELECT taint_id, gitobjid FROM taints t