Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Unusual Closure Behaviour

by tachyon (Chancellor)
on Jul 12, 2001 at 10:55 UTC ( #95940=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    {
        my $x;
    ...
    }
    
    for (1..7) { print foo() }
    
  2. or download this
    sub foo {
        my $x if undef;
      return ++$x;
    }
    for (1..7) { print foo() }