Well, it's enough of a bug that it's fixed in Perl 6:

    pugs> sub foo () { 1,2,3 }; say foo() || (4,5,6);
    123
    bool::true
    pugs> sub foo () { () }; say foo() || (4,5,6);
    456
    bool::true
[download]