diff options
| author | Radu Greab <radu@netsoft.ro> | 2003-08-02 03:17:49 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-02 05:12:13 +0000 |
| commit | 19bcb543e1f5bb004bdf7d16ba95ef96ce9e99c8 (patch) | |
| tree | a7b3a67fba5f52172771aa806ce7898d21b828e7 /t | |
| parent | 670137c257a6256f68b1db438a3e2732ae609263 (diff) | |
| download | perl-19bcb543e1f5bb004bdf7d16ba95ef96ce9e99c8.tar.gz | |
Re: [PATCH @19834] DProf fixes
Message-Id: <20030802.001749.101708736.radu@yx.primIT.ro>
p4raw-id: //depot/perl@20440
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/dprof/test8_t | 8 | ||||
| -rw-r--r-- | t/lib/dprof/test8_v | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/t/lib/dprof/test8_t b/t/lib/dprof/test8_t index 915a7f7f0e..6154c8a530 100644 --- a/t/lib/dprof/test8_t +++ b/t/lib/dprof/test8_t @@ -2,6 +2,14 @@ sub foo { print "in sub foo\n"; } +sub bar { + print "in sub bar\n"; + $^P -= 0x40; +} + foo(); $^P -= 0x40; foo(); +$^P += 0x40; +bar(); +$^P += 0x40; diff --git a/t/lib/dprof/test8_v b/t/lib/dprof/test8_v index a53758bd1a..d5de3087fe 100644 --- a/t/lib/dprof/test8_v +++ b/t/lib/dprof/test8_v @@ -5,6 +5,7 @@ use V; dprofpp( '-t' ); $expected = qq{main::foo (2x) +main::bar }; report 20, sub { $expected eq $results }; |