http://www.perlmonks.org?node_id=869292


in reply to Re: Lock File
in thread Lock File

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?