Try this (slightly cleaned up code):
Use strict would have told you this.my $e = 'my $i=0; sub foo{ print "$i foo\n"; if ($i < 10){ $i++; print "calling foo\n"; foo(); } } foo;'; eval "$e"; print $@,"\n";
Joost.
In reply to Re: eval strings non reentrant?
by Joost
in thread eval strings non reentrant?
by mutated
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |