fix some syntax errors

errors were detected by running genome-perl -Ilib t/01_one_lock.t