One work around is to put the constant on the left in comparisons. The following will throw an error:

while (0 = $stop) {

There is some more discussion in What habits do you have to avoid introducing bugs?