mirror of
https://github.com/php/php-src.git
synced 2024-12-02 06:13:40 +08: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);
|
|
}
|