From 4297c1b2d07fec7f50b70e26e3adb4d062b19e15 Mon Sep 17 00:00:00 2001
From: gnn <gnn@FreeBSD.org>
Date: Sat, 12 May 2012 20:38:18 +0000
Subject: Add the remaining scripts from the DTraceToolkit, version 0.99, to
 the vendor tree.

http://www.brendangregg.com/dtrace.html#DTraceToolkit
---
 Code/Perl/func_malloc.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 Code/Perl/func_malloc.pl

(limited to 'Code/Perl/func_malloc.pl')

diff --git a/Code/Perl/func_malloc.pl b/Code/Perl/func_malloc.pl
new file mode 100755
index 0000000..5340c82
--- /dev/null
+++ b/Code/Perl/func_malloc.pl
@@ -0,0 +1,18 @@
+#!./perl -w
+
+sub func_c {
+	print "Function C\n";
+}
+
+sub func_b {
+	print "Function B\n";
+	my $b = "B" x 100_000;
+	func_c();
+}
+
+sub func_a {
+	print "Function A\n";
+	func_b();
+}
+
+func_a();
-- 
cgit v1.1