in reply to Re: Unusual Closure Behaviour
in thread Unusual Closure Behaviour

Have you tried this?
#!/usr/bin/perl use strict; sub foo; sub foo { return unless $_ [0]; my $x if undef; print ++ $x, " "; foo $_ [0] - 1; } foo 29; print "\n";
It prints:

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Hum...

Replies are listed 'Best First'.
Re^3: Unusual Closure Behaviour
by Anonymous Monk on Sep 13, 2015 at 05:27 UTC
     Deprecated use of my() in false conditional at - line 6.