Re: given vs for

[Trey Harris]

To loop back to my earlier question:

In Perl 5.10:

    use strict;
    use warnings;
    use feature qw(switch say);

    my $foo = 10;
    for ($foo) {
        when ($foo < 50) { $_++ }
    }
    say "for: $foo";

    $foo = 10;
    given ($foo) {
        when ($foo < 50) { $_++ }
    }
    say "given: $foo";

Prints:

    for: 11
    given: 10

In Perl 6, that same code (minus the three C<use> lines) should print:

    for: 11
    given: 11

Correct?

Trey