# test merging of sub calls from eval fids

sub foo { print "foo\n" }

my $code = 'foo()';

# call once from particular line
eval $code;

# call twice from the same line
eval $code or die $@; eval $code or die $@;

# once from an eval inside an eval
eval "eval q{$code}";