sub foo {
eval "shift;
shift;
bar();";
}
sub bar {
eval '$a = 10_001; while (--$a) { ++$b }';
}
foo();
foo();
bar();
sub foo {
eval "shift;
shift;
bar();";
}
sub bar {
eval '$a = 10_001; while (--$a) { ++$b }';
}
foo();
foo();
bar();