[pkg-perl-tools] 04/04: scripts/upstream-repo: move/add comments
gregor herrmann
gregoa at debian.org
Thu Jun 30 12:52:33 UTC 2016
This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository pkg-perl-tools.
commit 220f1966e019b7ee4bd9df031362940ef24d7ef7
Author: gregor herrmann <gregoa at debian.org>
Date: Thu Jun 30 14:49:49 2016 +0200
scripts/upstream-repo: move/add comments
Gbp-Dch: Ignore
---
scripts/upstream-repo | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/scripts/upstream-repo b/scripts/upstream-repo
index e5fb56a..1d69190 100755
--- a/scripts/upstream-repo
+++ b/scripts/upstream-repo
@@ -5,6 +5,8 @@
set -e
set -u
+# functions
+
die() {
echo "$1" >&2
exit 1
@@ -15,6 +17,8 @@ warn() {
}
repofromcopyright() {
+ # XXX Eliminate call to grep?
+ # XXX this does not work for https://foo.git URLs.
REPOURL=$(perl -MDebian::Copyright -E '$c = Debian::Copyright->new(); $c->read("debian/copyright"); say $c->header()->Source' | grep -oE "git(?:+ssh)?:.+$" || true)
}
@@ -29,6 +33,8 @@ checkrepourl() {
fi
}
+# default values
+
CREATE=1
UPDATE=0
REPOURL=
@@ -56,12 +62,11 @@ shift $((OPTIND -1))
dh_testdir || die "This doesn't look like a source package directory."
[ -d .git ] || die "No .git directory found."
+# "main"
if ! git remote show | grep -qx upstream-repo ; then
warn "Git remote 'upstream-repo' not found, trying to add it ..."
# case 1: Git URL in d/copyright's Source paragraph
- # XXX Eliminate call to grep?
- # XXX this does not work for https://foo.git URLs.
repofromcopyright
# case 2: Repository in d/upstream/metadata
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git
More information about the Pkg-perl-cvs-commits
mailing list