Changeset View
Changeset View
Standalone View
Standalone View
Mk/Scripts/qa.sh
Show First 20 Lines • Show All 200 Lines • ▼ Show 20 Lines | find ${STAGEDIR} -name '*.la' | while read f; do | ||||
grep -q 'libtool library' "${f}" && | grep -q 'libtool library' "${f}" && | ||||
err ".la libraries found, port needs USES=libtool" && | err ".la libraries found, port needs USES=libtool" && | ||||
return 1 || true | return 1 || true | ||||
done | done | ||||
# The return above continues here. | # The return above continues here. | ||||
fi | fi | ||||
} | } | ||||
checks="shebang symlinks paths stripped desktopfileutils sharedmimeinfo suidfiles libtool" | libperl() { | ||||
if [ ! -z ${SITE_ARCH_REL} ]; then | |||||
find ${STAGEDIR}${PREFIX}/${SITE_ARCH_REL} -name '*.so' | while read f; do | |||||
found=`readelf -d $f | awk "BEGIN {libperl=0; rpath=0; runpath=0} | |||||
/NEEDED.*${LIBPERL}/ { libperl = 1 } | |||||
antoine: Here I think you need to put this:
# No results presents a blank line… | |||||
/RPATH.*perl.*CORE/ { rpath = 10 } | |||||
/RUNPATH.*perl.*CORE/ { runpath = 100} | |||||
END {print libperl+rpath+runpath} | |||||
"` | |||||
if [ "$found" -ne "111" ]; then | |||||
case "$found" in | |||||
*0) err "${f} is not linked with ${LIBPERL}, not respecting lddlflags ?" ;; | |||||
Not Done Inline ActionsYou'll need to return 1 for this case, but not you can't without refactoring or using a temp file since this is in a subshell/pipe. bdrewery: You'll need to return 1 for this case, but not you can't without refactoring or using a temp… | |||||
*1?) warn "${f} does not have the ${LIBPERL} rpath, not respecting lddlflags ?";; | |||||
1??) warn "${f} does not have the ${LIBPERL} runpath, not respecting lddlflags ?";; | |||||
esac | |||||
fi | |||||
done | |||||
fi | |||||
} | |||||
checks="shebang symlinks paths stripped desktopfileutils sharedmimeinfo suidfiles libtool libperl" | |||||
ret=0 | ret=0 | ||||
cd ${STAGEDIR} | cd ${STAGEDIR} | ||||
for check in ${checks}; do | for check in ${checks}; do | ||||
${check} || ret=1 | ${check} || ret=1 | ||||
done | done | ||||
exit $ret | exit $ret |
Here I think you need to put this:
(otherwise there will be like 5000 qa errors!)