[ABE.pm] closure question

[Faber J. Fedor]

Take your canonical closure example:

sub plusplus {
    my $n = shift;
    return sub { $n++ ;}
}

my $seed = 1;
my $c = plusplus($seed);

print $c->()."\n";
print $c->()."\n";

$seed = 100;
my $d = plusplus($seed);
print $d->()."\n";
print  $d->()."\n";

The output of which is, naturally,

1
2
100
101


I understand the 2 and the 101.  I don't understand the 1 and the 100.
Why does the first call to the closure result in $seed and not $seed++?



-- 
 
Regards,
 
Faber Fedor
President
Linux New Jersey, Inc.
908-320-0357
800-706-0701

http://www.linuxnj.com