CVS patchset: 1846
CVS date: 1997/10/10 19:10:36
scriptlist=`echo $filelist | xargs -r file | egrep ":.*(perl |script )" | cut -d: -f1 `
for f in $exelist; do
- ldd $f | awk '/=>/ { print $1 }'
+ if [ -x $f ]; then
+ ldd $f | awk '/=>/ { print $1 }'
+ fi
done | sort -u | sed "s/['\"]/\\\&/g" | xargs -r -n 1 basename | sort -u
for f in $scriptlist; do
- head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1
+ if [ -x $f ]; then
+ head -1 $f | sed -e 's/^\#\![ ]*//' | cut -d" " -f1
+ fi
done | sort -u