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, 0 insertions, 29 deletions
diff --git a/contrib/perl5/t/lib/dprof/test6_t b/contrib/perl5/t/lib/dprof/test6_t deleted file mode 100644 index 7b8bf4a..0000000 --- a/contrib/perl5/t/lib/dprof/test6_t +++ /dev/null @@ -1,29 +0,0 @@ -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(); }; - |