r46230 - /scripts/qa/packagecheck

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Oct 23 00:20:51 2009
New Revision: 46230

URL: http://svn.debian.org/wsvn/?sc=1&rev=46230
Log:
new check: -O  debian/control: replace perl-m_o_dules with perl (first version)

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=46230&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Fri Oct 23 00:20:51 2009
@@ -34,6 +34,7 @@
 	echo "  -D       - debian/control: add \${misc:_D_epends} to Depends:"
 	echo "  -P       - debian/control: substitute occurences of explicit versioned"
 	echo "             dependencies on _p_erl (>= 5.6.0-{12,16}) with unversioned one."
+	echo "  -O       - debian/control: replace perl-m_o_dules with perl"
 	echo "  -W       - debian/_w_atch: change CPAN URLs to"
 	echo "             http://search.cpan.org/dist/Mod-Ule/ ;"
 	echo "             update to ignore developer releases"
@@ -217,6 +218,22 @@
 	fi
 }
 
+testperlmodulesdepends() {
+	DIR=$1
+	PKG=$(basename $($CMD_REALPATH $DIR))
+	if egrep -q "perl-modules" $DIR/debian/control; then
+		echo "$PKG: replace (build) dependency on perl-modules with perl"
+		# remove unversioned perl-modules
+		perl -pi -e 's:perl-modules,?($?):$1:' $DIR/debian/control
+		# replace perl-modules with perl
+		perl -pi -e 's:perl-modules:perl:' $DIR/debian/control
+		# try to catch "double-perl"
+		perl -pi -e 's:([^-]+)perl([^\:,\n]*?),\s*perl([^\:,\n]*?):$1perl$2$3:' $DIR/debian/control
+		MSG_CONTROL_CH="${MSG_CONTROL_CH:+$MSG_CONTROL_CH; }(build-)depend on perl instead of perl-modules"
+		CHANGED=1
+	fi
+}
+
 testwatchdist() {
 	DIR=$1
 	PKG=$(basename $($CMD_REALPATH $DIR))
@@ -311,7 +328,7 @@
 ONLY_CURDIR=""
 AUTO=0
 
-while getopts p:acVHMDPWCRQAh O; do
+while getopts p:acVHMDPOWCRQAh O; do
 	case "$O" in
 		a)
 			AUTO=1
@@ -336,6 +353,9 @@
 			;;
 		P)
 			TESTPERLDEPENDS=1
+			;;
+		O)
+			TESTPERLMODULESDEPENDS=1
 			;;
 		W)
 			TESTWATCHDIST=1
@@ -402,6 +422,9 @@
 	# and Build-Depends-Indep if present
 	[ "$TESTPERLDEPENDS" = 1 ] && testperldepends $p
 
+	# TESTPERLMODULESDEPENDS - -O debian/control: replace perl-modules with perl"
+	[ "$TESTPERLMODULESDEPENDS" = 1 ] && testperlmodulesdepends $p
+
 	# TESTWATCHDIST - -W debian/_w_atch: change CPAN URLs to http://search.cpan.org/dist/Mod-Ule/
 	[ "$TESTWATCHDIST" = 1 ] && testwatchdist $p