Are you sure you have the right line?

undef $lock;
if ($lock) ...
[download]

does not cause a warning for me (perl 5.8.0). It's not doing a numerical == comparison.

Have you tried using the debugger?