r11993 - /scripts/qa/packagecheck

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Jan 4 15:16:11 UTC 2008


Author: gregoa-guest
Date: Fri Jan  4 15:16:11 2008
New Revision: 11993

URL: http://svn.debian.org/wsvn/?sc=1&rev=11993
Log:
add --verbose to rmdir in testrmdir()

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=11993&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Fri Jan  4 15:16:11 2008
@@ -131,11 +131,11 @@
 				;;
 		esac
 		echo "$1: trying to make rmdir /usr${DELDIR} conditional"
-		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{rmdir.*ignore-fail-on-non-empty.*\s(\S+)$DELDIR}{[ ! -d \$1${DELDIR} ] || rmdir --ignore-fail-on-non-empty --parents \$1${DELDIR}}; print;} exit \$changed" $TRUNK/$1/debian/rules ; then
+		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{rmdir.*ignore-fail-on-non-empty.*\s(\S+)$DELDIR}{[ ! -d \$1${DELDIR} ] || rmdir --ignore-fail-on-non-empty --parents --verbose \$1${DELDIR}}; print;} exit \$changed" $TRUNK/$1/debian/rules ; then
 			MSG_RULES="debian/rules: delete /usr${DELDIR} only if it exists." && \
 			CHANGED=1
 		fi
-		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{-?find.+xargs.+rmdir.+}{[ ! -d \\\$(CURDIR)/debian/\\\$(shell dh_listpackages)/usr${DELDIR} ] || rmdir --ignore-fail-on-non-empty --parents \\\$(CURDIR)/debian/\\\$(shell dh_listpackages)/usr${DELDIR}}; print;} exit \$changed" $TRUNK/$1/debian/rules ; then
+		if perl -i -e "my \$changed=1; while(<>){ \$changed=0 if s{-?find.+xargs.+rmdir.+}{[ ! -d \\\$(CURDIR)/debian/\\\$(shell dh_listpackages)/usr${DELDIR} ] || rmdir --ignore-fail-on-non-empty --parents --verbose \\\$(CURDIR)/debian/\\\$(shell dh_listpackages)/usr${DELDIR}}; print;} exit \$changed" $TRUNK/$1/debian/rules ; then
 			MSG_RULES="debian/rules: delete /usr${DELDIR} only if it exists." && \
 			CHANGED=1
 		fi




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