fix the nasty feature in perl 5.6 with my $ref = $foo if $bar for