1 files changed, 20 insertions, 0 deletions
diff --git a/tests/testfunc.pl b/tests/testfunc.pl
new file mode 100644
index 0000000000..87864866ff
--- /dev/null
+++ b/tests/testfunc.pl
@@ -0,0 +1,20 @@
+sub foo()
+{
+	my $i=0;
+	
+	if ($i) {
+		my $a = "zeev";
+	} else {
+		my $b = "andi";
+	}
+}
+
+
+sub bar()
+{
+	foo();
+}
+
+for ($i=0; $i<1000000; $i++) {
+	bar();
+}