case $THIS_SUB_DEPENDS in
    THREADS) if [[ $THREADED != y ]]; then
               message "Requested threaded version of perl, forcing option THREADED=y." &&
	       THREADED=y
	     fi
	     ;;
*) message "${PROBLEM_COLOR}bogus sub_depends: $SPELL $THIS_SUB_DEPENDS${DEFAULT_COLOR}" ;
   return 1;;
esac

.