diff options
Diffstat (limited to 'contrib/perl5/t/lib/dprof/test5_t')
| -rw-r--r-- | contrib/perl5/t/lib/dprof/test5_t | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/contrib/perl5/t/lib/dprof/test5_t b/contrib/perl5/t/lib/dprof/test5_t deleted file mode 100644 index 0b11137..0000000 --- a/contrib/perl5/t/lib/dprof/test5_t +++ /dev/null @@ -1,25 +0,0 @@ -# Test that dprof doesn't break -# &bar; used as &bar(@_); - -sub foo1 { - print "in foo1(@_)\n"; - bar(@_); -} -sub foo2 { - print "in foo2(@_)\n"; - &bar; -} -sub bar { - print "in bar(@_)\n"; - if( @_ > 0 ){ - &yeppers; - } -} -sub yeppers { - print "rest easy\n"; -} - - -&foo1( A ); -&foo2( B ); - |
