Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^4: Perl bug ?

by vsespb (Chaplain)
on Feb 06, 2013 at 12:36 UTC ( #1017408=note: print w/replies, xml ) Need Help??

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

Why I have
[[[ARRAY(0x137cd48)]]] [[[some text 1 ]]]
then ? First argument should be true only if $errors->[0] contains string /Journal file not found/ no ?

Replies are listed 'Best First'.
Re^5: Perl bug ?
by tinita (Parson) on Feb 06, 2013 at 12:48 UTC
    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)
      what gets really passed is $errors
      Why? I would expect the result of the && operation to be passed.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
        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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1017408]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2018-10-19 10:48 GMT
Find Nodes?
    Voting Booth?
    When I need money for a bigger acquisition, I usually ...

    Results (107 votes). Check out past polls.