- for r in $(find . -type l -name current -print); do
- r=${r#./}; r=${r%/current}
- if ! expr >/dev/null "Q$r" : "Q$R_LABEL"; then continue; fi
+ for r in *; do
+ if ! expr >/dev/null "Q$r" : "Q$R_WORD"; then continue; fi
+ if [ ! -l $r/current ]; then continue; fi