Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: Closure warning with Perl 5.14?

by BerntB (Deacon)
on May 19, 2011 at 08:45 UTC ( [id://905636]=note: print w/replies, xml ) Need Help??


in reply to Re: Closure warning with Perl 5.14?
in thread Closure warning with Perl 5.14?

Thanks for the answer!

But shouldn't there be a warning in 5.12? Shouldn't the warning be consistent in 5.14? I don't get a warning from this in 5.14.0:

use warnings; use strict; my $x = <>; my $y = "X" if $x =~ /X/; $y = "Z" if !defined $y; print "$y\n";

Replies are listed 'Best First'.
Re^3: Closure warning with Perl 5.14?
by moritz (Cardinal) on May 19, 2011 at 10:24 UTC
    But shouldn't there be a warning in 5.12?

    There should have been a warning for that in perl 5.0.

    Shouldn't the warning be consistent in 5.14?

    Variables declared in a conditional always was "undefined" behavior. To quote perlsyn:

    NOTE: The behaviour of a "my" statement modified with a statement modifier conditional or loop construct (e.g. "my $x if ...") is undefined. The value of the "my" variable may be "undef", any previously assigned value, or possibly anything else. Don't rely on it. Future versions of perl might do something different from the version of perl you try it out on. Here be dragons.

    (emphasis mine). The perl-5.14.0 behavior (new warning) is consistent with the documentation, and a good thing.

      Ahh... there was the documentation, I should have looked a bit more. :-( Thanks.
Re^3: Closure warning with Perl 5.14?
by BrowserUk (Patriarch) on May 19, 2011 at 08:51 UTC
    But shouldn't there be a warning in 5.12?

    Perhaps this is a new warning for old problem added in 5.14 to help us.

    I don't get a warning from this in 5.14.0: ...

    No. There is no closure involved there.

    Try:

    use warnings; use strict; my $x = <>; my $y = "X" if $x =~ /X/; sub x{ print $y ? 'Okay' : 'bad'; } print "$y\n";

    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

      Still no warning, $y is declared as it always was.

      (But you get a warning for an uninitialized value in a concatenation, potentially, etc.)

        I couldn't test it as I don't have 5.14 yet. You'll have to play around to discover teh exact circumstances under which it occurs.


        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority".
        In the absence of evidence, opinion is indistinguishable from prejudice.
Re^3: Closure warning with Perl 5.14?
by JavaFan (Canon) on May 19, 2011 at 09:11 UTC
    But shouldn't there be a warning in 5.12?
    It warns, but only if Perl can, at compile time, determine that the condition is false.

      Yeah, I don't understand having a warning for "my ... if 0;" but not for other "my ... if ...", especially since the second construct is more likely to be a real bug.

      The warning for "my ... if 0;" should convey something along the lines of "stop doing that hack to get 'state' variables as we won't guarantee that it will continue to work". The warning for other "my ... if ...;" should convey "you've got a bug there; move the 'my' out from under the 'if'".

      It is silly to warn for something that actually works fine but in theory might stop working some day while silently accepting something that just indicates a mistake (I've never seen code that intentionally and correctly used the behavior of "my ... if maybe();"), and a subtle mistake that is easy to not notice in testing. The second case is much more deserving of a warning.

      - tye        

      This complains about uninitialized value (of course), but gives no warning in 5.14.0:

      use warnings; use strict; use constant duh => 0; my $y = "X" if duh; sub x{ print $y ? 'Okay' : 'bad'; } x(); print "$y\n";

      And no warning even for this:

      use warnings; use strict; my $y = "X" if 0; sub x{ print $y ? 'Okay' : 'bad'; } x(); print "$y\n";
        Yeah, it only warns on my $var if 0, not on my $var = EXPR if COND. I do not know why.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2025-02-08 03:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which URL do you most often use to access this site?












    Results (95 votes). Check out past polls.