perl -Mstrict -wle "my@r;$|++;while($_++<$ARGV[0]){eval sprintf q{my$s
+elf=\%s;push @r,sub{ $self }},$_,$_; if(!($_%100000)){printf qq(%010d
+\r),$_;@r=()}}" 1000000000
but I've only reached 479_000_000 iterations so far, doing about 10_000 evaluations per second. If that doesn't turn up any errors, maybe we should work on code that pumps up the counter more quickly to 999_000_000 string evals and then slowly iterates there.
I think what would help was some more information about the nature of the code you're evaluating. Is my code anywhere near, creating closures? Or don't closures come into play with your code at all?
Update: The code has run through (on Strawberry Perl 5.12) without a hitch.
Update: Running the code for somewhat longer actually produces the error on Strawberry 5.12 for me too:
Expect crash1073700000
Expect crashGlobal symbol "$abc" requires explicit package name at (ev
+al 1073741769) line 1.
|