1 files changed, 24 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t
new file mode 100644
index 00000000000..729968270aa
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Devel/DProf/test4_t
@@ -0,0 +1,24 @@
+sub foo {
+	print "in sub foo\n";
+	bar();
+}
+
+sub bar {
+	print "in sub bar\n";
+}
+
+sub baz {
+	print "in sub baz\n";
+	bar();
+	bar();
+	bar();
+	foo();
+}
+
+bar();
+
+eval { fork };
+
+bar();
+baz();
+foo();