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