stringdistmatrix is missing `p` when `ncores==1`

in stringdistmatrix
this line was missing the argument `p`:
  if (ncores==1){
     x <- sapply(b,do_dist,a,method,weight,maxDist, q, p)
   }