mirror of
https://github.com/php/php-src.git
synced 2024-10-20 07:53:58 +00:00
23 lines
187 B
Perl
23 lines
187 B
Perl
|
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);
|
||
|
}
|