cvs $_line $_opts "$@"
); }
function perlrpm { repoquery -q --whatprovides $(for i in "$@";do echo "perl($i)";done|sed -e 's/\//::/g' -e 's/[.]pm//g'); }
+# `-u' limits the search to $UID.
+function pidof
+{(unset pidof
+ if [ "$1" = "-u" ];then
+ shift
+ local r="$(pidof "$@")"
+ local space=""
+ local p
+ for p in $r;do
+ if grep -q "$(echo -e "^Uid:\t$UID\t")" "/proc/$p/status";then
+ echo -n "${space}$p"
+ space=" "
+ fi
+ done
+ echo
+ else
+ pidof "$@"
+ fi
+)}
ulimit -S -c 0
set +H