From 120a02d4f3990e59fba1df18a155ff7233b4d827 Mon Sep 17 00:00:00 2001
From: Mark Murray <markm@FreeBSD.org>
Date: Sun, 25 Jun 2000 11:04:01 +0000
Subject: Vendor import of Perl 5.006
---
contrib/perl5/t/lib/dprof/test6_t | 29 +++++++++++++++++++++++++++++
1 file changed, 29 insertions(+)
create mode 100644 contrib/perl5/t/lib/dprof/test6_t
(limited to 'contrib/perl5/t/lib/dprof/test6_t')
diff --git a/contrib/perl5/t/lib/dprof/test6_t b/contrib/perl5/t/lib/dprof/test6_t
new file mode 100644
index 000000000000..7b8bf4a722bd
--- /dev/null
+++ b/contrib/perl5/t/lib/dprof/test6_t
@@ -0,0 +1,29 @@
+sub foo {
+ my $x;
+ my $y;
+ print "in sub foo\n";
+ for( $x = 1; $x < 100; ++$x ){
+ bar();
+ for( $y = 1; $y < 100; ++$y ){
+ }
+ }
+}
+
+sub bar {
+ my $x;
+ print "in sub bar\n";
+ for( $x = 1; $x < 100; ++$x ){
+ }
+ die "bar exiting";
+}
+
+sub baz {
+ print "in sub baz\n";
+ eval { bar(); };
+ eval { foo(); };
+}
+
+eval { bar(); };
+baz();
+eval { foo(); };
+
--
cgit v1.2.3