Fix test failing on ancient perls <= 5.8.1

On 5.8.1 and lower `sub foo { }` === `sub foo { wantarray ? $_[0] : () }`