I think I should stop hacking Perl code at midnight. This morning I started my work day with 'make test' and, surpise, I got this:
t/ctrl/26-show-ad-contacts........Unquoted string "fuck" may clash with future reserved word at t/ctrl/26-show-ad-contacts.t line 3.
String found where operator expected at t/ctrl/26-show-ad-contacts.t line 3, near "fuck 'xxx'"
(Do you need to predeclare fuck?)
syntax error at t/ctrl/26-show-ad-contacts.t line 3, near "fuck 'xxx'"
Execution of t/ctrl/26-show-ad-contacts.t aborted due to compilation errors.
t/ctrl/26-show-ad-contacts........dubious
No idea how it got into my code. I guess I was too sleepy and too frustrated.