From cef4df1fee046105ab35f47c152d39bf16a55a07 Mon Sep 17 00:00:00 2001 From: Andrey Hristov Date: Thu, 8 Jul 1999 21:42:29 +0000 Subject: Reduce clutter a bit. --- tests/testfunc2.pl | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 tests/testfunc2.pl (limited to 'tests/testfunc2.pl') diff --git a/tests/testfunc2.pl b/tests/testfunc2.pl new file mode 100644 index 0000000000..7eeaf92ffb --- /dev/null +++ b/tests/testfunc2.pl @@ -0,0 +1,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); +} -- cgit v1.2.1