JW-distance's p-parameter ignored when calling stringdistmatrix with a single argument

[markvanderloo]

With thanks to Max Fritsche for reporting this.

to reproduce

stringdist("aap","apen",method="jw",p=0.1)
stringdist("aap","apen",method="jw",p=0)
x <- c("aap","apen")

stringdistmatrix(x,method="jw")
stringdistmatrix(x,method="jw",p=0.1)

stringdistmatrix(x,x,method="jw")
stringdistmatrix(x,x,method="jw",p=0.1)