chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Test suite: quilt-gb-build-modes: Fixes, passes now
[dgit.git]
/
infra
/
dgit-repos-admin-debian
diff --git
a/infra/dgit-repos-admin-debian
b/infra/dgit-repos-admin-debian
index 10118c6ad65ce3511978f29fd8b77b236909a23c..e292bfa70e9e4c6e94c8cc1d8eb1366b84b36c04 100755
(executable)
--- a/
infra/dgit-repos-admin-debian
+++ b/
infra/dgit-repos-admin-debian
@@
-1,6
+1,11
@@
#!/usr/bin/perl -w
# dgit repos policy admin script for Debian
#!/usr/bin/perl -w
# dgit repos policy admin script for Debian
+use strict;
+
+use Debian::Dgit;
+setup_sigwarn();
+
our $usage = <<'END';
usage:
dgit-repos-admin-debian [<options>] operation...
our $usage = <<'END';
usage:
dgit-repos-admin-debian [<options>] operation...
@@
-16,11
+21,9
@@
operations:
untaint [--global|<package>] <gitobjid>
END
untaint [--global|<package>] <gitobjid>
END
-use strict;
use POSIX;
use DBI;
use POSIX;
use DBI;
-use Debian::Dgit;
use Debian::Dgit::Policy::Debian;
sub badusage ($) { die "bad usage: $_[0]\n$usage"; }
use Debian::Dgit::Policy::Debian;
sub badusage ($) { die "bad usage: $_[0]\n$usage"; }
@@
-121,6
+124,8
@@
END
ON taints (gitobjid, package)
END
# any one of of the listed deliberatelies will override its taint
ON taints (gitobjid, package)
END
# any one of of the listed deliberatelies will override its taint
+ # the field `deliberately' contains `--deliberately-blah-blah',
+ # not just `blah blah'.
$poldbh->do(<<END);
CREATE TABLE IF NOT EXISTS taintoverrides (
taint_id INTEGER NOT NULL
$poldbh->do(<<END);
CREATE TABLE IF NOT EXISTS taintoverrides (
taint_id INTEGER NOT NULL