summaryrefslogtreecommitdiff
path: root/testfunc2.pl
blob: 7eeaf92ffb48da102b4dbc55a7e2c46409e3b3d1 (plain)
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);
}