r18151 - /scripts/qa/packagecheck

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sun Mar 30 15:16:42 UTC 2008


Author: gregoa-guest
Date: Sun Mar 30 15:16:40 2008
New Revision: 18151

URL: http://svn.debian.org/wsvn/?sc=1&rev=18151
Log:
try to catch multiline conditional rmdirs

Modified:
    scripts/qa/packagecheck

Modified: scripts/qa/packagecheck
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck?rev=18151&op=diff
==============================================================================
--- scripts/qa/packagecheck (original)
+++ scripts/qa/packagecheck Sun Mar 30 15:16:40 2008
@@ -183,7 +183,7 @@
 	DIR=$1
 	PKG=$(basename $(realpath $DIR))
 	# handle rmdir /usr/{share,lib}/perl5
-	if egrep -m 1 "(rmdir.*ignore-fail-on-non-empty|rm -r.*usr/(lib|share)(/perl5)?$)" $DIR/debian/rules | grep -v "\[ \! -d" > /dev/null ; then
+	if egrep -m 1 -C 1 "(rmdir.*ignore-fail-on-non-empty|rm -r.*usr/(lib|share)(/perl5)?$)" $DIR/debian/rules | perl -pe 's/\n//g' | grep -v "\[ \! -d" > /dev/null ; then
 		ARCH=$(grep -m 1 -h "Architecture:" $DIR/debian/control | awk '{print $2;}')
 		case $ARCH in
 			any)




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