diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Devel/DProf/test5_t')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Devel/DProf/test5_t | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Master/tlpkg/tlperl/lib/Devel/DProf/test5_t b/Master/tlpkg/tlperl/lib/Devel/DProf/test5_t deleted file mode 100644 index 0b1113757fd..00000000000 --- a/Master/tlpkg/tlperl/lib/Devel/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 ); - |