r23857 - /scripts/qa/packagecheck
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Aug 7 00:22:20 UTC 2008
Author: gregoa
Date: Thu Aug 7 00:22:16 2008
New Revision: 23857
URL: http://svn.debian.org/wsvn/?sc=1&rev=23857
Log:
add new -Q switch to packagecheck: adds debian/README.source with a pointer to quilt's README.source if the package uses quilt
Modified:
scripts/qa/packagecheck
Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=23857&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Thu Aug 7 00:22:16 2008
@@ -16,7 +16,7 @@
usage() {
[ -n "$1" ] && echo "ERROR: $1" && echo
echo "Usage:"
- echo " $(basename $0) -{VHMWCR|A|h} {-c | [-p pkg] trunk}"
+ echo " $(basename $0) -{VHMWCRQ|A|h} {-c | [-p pkg] trunk}"
echo
echo " At least one parameter must be present."
echo
@@ -33,6 +33,8 @@
echo " exist"
echo " -R - debian/rules: _r_mdir /usr/\{lib,share\}/perl5"
echo " only if they exist"
+ echo " -Q - add debian/README.source pointing to _Q_uilt's README.source"
+ echo " if the package uses quilt"
echo " -A - all checks"
echo
echo " -p <pkg> - check only package <pkg>"
@@ -211,6 +213,24 @@
fi
}
+testreadmesource() {
+ DIR=$1
+ PKG=$(basename $(realpath $DIR))
+ # add debian/README.source for quilt using packages
+ if grep --silent quilt $DIR/debian/control > /dev/null && [ ! -e $DIR/debian/README.source ] ; then
+ echo "$PKG: adding debian/README.source"
+cat <<- EOF > $DIR/debian/README.source
+ This package uses quilt to manage all modifications to the upstream
+ source. Changes are stored in the source package as diffs in
+ debian/patches and applied during the build.
+
+ See /usr/share/doc/quilt/README.source for a detailed explanation.
+EOF
+ svn add $DIR/debian/README.source
+ MSG_READMESOURCE="Add debian/README.source to document quilt usage, as required by Debian Policy since 3.8.0."
+ CHANGED=1
+ fi
+}
########
# main #
@@ -222,7 +242,7 @@
ONLY_CURDIR=""
-while getopts p:cVHMWCRAh O; do
+while getopts p:cVHMWCRQAh O; do
case "$O" in
p)
PKG=$OPTARG
@@ -247,6 +267,9 @@
;;
R)
TESTRMDIR=1
+ ;;
+ Q)
+ TESTREADMESOURCE=1
;;
A)
TESTVCS=1
@@ -254,6 +277,7 @@
TESTMAINTAINER=1
TESTWATCHDIST=1
TESTRMDIR=1
+ TESTREADMESOURCE=1
;;
h)
usage
@@ -280,6 +304,7 @@
MSG_CONTROL_CH=
MSG_WATCH=
MSG_RULES=
+ MSG_READMESOURCE=
# TESTVCS - -V debian/control: add _V_cs-(Svn|Browser) fields; remove XS-Vcs-(Svn|Browser) field
[ "$TESTVCS" = 1 ] && testvcs $p
@@ -295,6 +320,9 @@
# TESTRMDIR - -R debian/rules: _r_mdir /usr/\{lib,share\}/perl5 only if they exist
[ "$TESTRMDIR" = 1 ] && testrmdir $p
+
+ # TESTREADMESOURCE - -Q add debian/README.source for _Q_uilt-using packages
+ [ "$TESTREADMESOURCE" = 1 ] && testreadmesource $p
# changelog
if [ -n "$MSG_CONTROL_ADD" -o -n "$MSG_CONTROL_RM" -o -n "$MSG_CONTROL_CH" ] ; then
@@ -309,6 +337,9 @@
fi
if [ -n "$MSG_RULES" ] ; then
dch --mainttrailer --release-heuristic=changelog --changelog $p/debian/changelog "$MSG_RULES"
+ fi
+ if [ -n "$MSG_READMESOURCE" ] ; then
+ dch --mainttrailer --release-heuristic=changelog --changelog $p/debian/changelog "$MSG_READMESOURCE"
fi
}
More information about the Pkg-perl-cvs-commits
mailing list