Re^5: Perl bug ?

[tinita]

in reply to Re^4: Perl bug ?
in thread Perl bug ?

like I said. the first argument passed to ok() is $errors && ($errors->[0] =~ /.../i). what gets really passed is $errors. it's like saying: my @foo = $errors && ($errors->[0] =~ /.../i)
the pattern match isn't executed at all at the first time. but after processing the first argument, you use $errors->[0] in your second argument. now $errors is autovivified to an array ref before ok() is actyally executed. since $errors is passed as the first argument as an alias, it prints ARRAY(0x137cd48)

[choroba]

what gets really passed is $errors

Why? I would expect the result of the && operation to be passed.

[tinita]

I would expect the result of the && operation to be passed.

yes, and the result of something_false && something is something_false. the second part is never processed.

[choroba]

Oh, I see! Thanks for enlightening me.

[vsespb]

Now I get it, thanks. Agree. That's probably most amazing way to shut yourself 3 times in one line of Perl.