[Israel.pm] bitten by context

[ynon perek]

Hi Everyone,
I was bitten today by this snippet that I still can't understand (second
test fails):

use v5.14;
use Test::More;

my @l = qw/red blue green/;

my $has_red_1 =   grep /red/, @l;
my $has_red_2 = ( grep /red/, @l ? 1 : 0 );

is ( $has_red_1, 1, "Expected" );
is ( $has_red_2, 1, "This one fails - Why ?" );

done_testing;

I know that grep does nothing in void context, but here I have a valid
boolean context - what's going on ?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.perl.org.il/pipermail/perl/attachments/20120424/7acd9e47/attachment.htm