Re^2: 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";
[download]

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...

Comment on Re^2: Unusual Closure Behaviour Download Code

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.`	[reply] [d/l]