diff options
Diffstat (limited to 'contrib/perl5/t/lib/dprof/test6_t')
| -rw-r--r-- | contrib/perl5/t/lib/dprof/test6_t | 29 |
1 files changed, 29 insertions, 0 deletions
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(); }; + |