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 ?
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl

Reply via email to