X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=infra%2Fdgit-repos-admin-debian;h=6d1e4d03d686ce2df9c15494145eb7c829ffd4ca;hp=926431bfaf96f401b4c93470fd1e7e18242e0bb7;hb=816ed64edd5f42c114bda166878008e6a3877215;hpb=ec99fb2d75264668e6f7e6628bb3c87c1b69f332 diff --git a/infra/dgit-repos-admin-debian b/infra/dgit-repos-admin-debian index 926431bf..6d1e4d03 100755 --- a/infra/dgit-repos-admin-debian +++ b/infra/dgit-repos-admin-debian @@ -1,5 +1,26 @@ #!/usr/bin/perl -w # dgit repos policy admin script for Debian +# +# Copyright (C) 2015-2016 Ian Jackson +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +use strict; + +use Debian::Dgit::Infra; # must precede Debian::Dgit; - can change @INC! +use Debian::Dgit; +setup_sigwarn(); our $usage = <<'END'; usage: @@ -16,11 +37,9 @@ operations: untaint [--global|] END -use strict; use POSIX; use DBI; -use Debian::Dgit; use Debian::Dgit::Policy::Debian; sub badusage ($) { die "bad usage: $_[0]\n$usage"; }