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


in reply to Re: undef-safe equality
in thread undef-safe equality

Your second return should be:
return !defined $l && !defined $r;

Otherwise, two undefs will compare unequal.