+debuginfo(1) for easy '-debuginfo' packages installation.

[nethome.git] / .bashrc

diff --git a/.bashrc b/.bashrc
index 196281f..1f2ffee 100644 (file)
--- a/.bashrc
+++ b/.bashrc
@@ -226,6 +226,8 @@ function ctagsh { ctags "--c-types=+px"; }; export -f ctagsh
 function cpan {(unset cpan; if [ $# = 0 ];then cpan;else perl -MCPAN -e "install qw($*);";fi; );}; export -f cpan
 function exx { cd "`unset exx;exx "$@"|tee /proc/self/fd/2|tail -n1|sed -n 's/^extdir=//p'`"; };export -f exx
 function revlines { perl -e 'print reverse <>;'; }; export -f revlines
+function debuginfo { if test -n "$*";then echo "$*";else cat;fi \
+       |xargs rpm -qf|xargs rpmquery --qf '%{SOURCERPM}\n'|sed 's/-[^-]*-[^-]*[.]src[.]rpm$/-debuginfo/'|sort -u; }
 
 ulimit -S -c 0
 set +H