r77927 - /scripts/qa/packagecheck

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Wed Jul 27 19:38:46 UTC 2011


Author: dmn
Date: Wed Jul 27 19:38:45 2011
New Revision: 77927

URL: http://svn.debian.org/wsvn/?sc=1&rev=77927
Log:
require topdir when it is mandatory

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=77927&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Wed Jul 27 19:38:45 2011
@@ -477,8 +477,16 @@
 if [ -n "$ONLY_CURDIR" ]; then
 	WORK_DIR="."
 elif [ -n "$PKG" ]; then
+	if [ -z "$TOP" ]; then
+		echo "-p requires topdir" >&2
+		exit 1
+	fi
 	WORK_DIR=$TOP/packages/$PKG
 else
+	if [ -z "$TOP" ]; then
+		echo "No -c is given and there is no topdir" >&2
+		exit 1
+	fi
 	WORK_DIR=$TOP
 fi
 
@@ -491,9 +499,9 @@
 fi
 
 if [ -n "$ONLY_CURDIR" ]; then
-	check_package .
+	check_package $WORK_DIR
 elif [ -n "$PKG" ]; then
-	check_package $TOP/packages/$PKG
+	check_package $WORK_DIR
 else
 	# loop over packages
 
@@ -513,7 +521,7 @@
 		read -p "Show git diff $WORK_DIR (y|N)? " DIFF
 		case $DIFF in
 			y|Y)
-				( cd $TOP/packages; mr diff | less -R )
+				( cd $WORK_DIR; mr diff | less -R )
 				;;
 			*)
 				;;
@@ -524,7 +532,7 @@
 		read -p " $WORK_DIR (y|N)? " COMMIT
 		case $COMMIT in
 			y|Y)
-				( cd $TOP/packages; mr ci -m "$COMMIT_MSG" )
+				( cd $WORK_DIR; mr ci -m "$COMMIT_MSG" )
 				;;
 			*)
 				;;




More information about the Pkg-perl-cvs-commits mailing list