in reply to Perl bug ?
Also see the parallel discussion on RT in perl #116665 Undef evaluated to array in some conditions.