mirror of
https://github.com/php/php-src.git
synced 2024-09-22 02:17:32 +00:00
21 lines
152 B
Perl
21 lines
152 B
Perl
|
sub foo()
|
||
|
|
{
|
||
|
|
my $i=0;
|
||
|
|
|
||
|
|
if ($i) {
|
||
|
|
my $a = "zeev";
|
||
|
|
} else {
|
||
|
|
my $b = "andi";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub bar()
|
||
|
|
{
|
||
|
|
foo();
|
||
|
|
}
|
||
|
|
|
||
|
|
for ($i=0; $i<1000000; $i++) {
|
||
|
|
bar();
|
||
|
|
}
|