tests/testfunc2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

sub foo
{
	my $i = shift(@_);
	
	if ($i) {
		my $a = "zeev";
	} else {
		my $b = "andi";
	}
}


sub bar
{
	my $i = shift(@_);
	
	foo($i);
}

for ($i=0; $i<1000000; $i=$i+1) {
	bar($i);
}