diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-09-26 00:40:23 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-02 12:55:29 +0000 |
| commit | dd2155a49b710f23bc6d72169e5b1d71d8b3aa03 (patch) | |
| tree | 7fd660a6b57a1893830c91b566975bbe7e085966 /ext/Devel | |
| parent | 78c9d76351ef2d0f7047846bbf29e303753d3fda (diff) | |
| download | perl-dd2155a49b710f23bc6d72169e5b1d71d8b3aa03.tar.gz | |
move all pad-related code to its own src file
Message-ID: <20020925234023.A20044@fdgroup.com>
p4raw-id: //depot/perl@17953
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 80732a417a..5b5d738d66 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -222,6 +222,7 @@ do_test(13, OWNER = $ADDR )? FLAGS = 0x4 PADLIST = $ADDR + PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) OUTSIDE = $ADDR \\(MAIN\\)'); do_test(14, @@ -247,9 +248,10 @@ do_test(14, OWNER = $ADDR )? FLAGS = 0x0 PADLIST = $ADDR - \\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\) - \\d+\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\) - \\d+\\. $ADDR \\("\\$dump" \\d+-\\d+\\) + PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) + \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$pattern" + \\d+\\. $ADDR<\\d+> FAKE \\(\\d+,\\d+\\) "\\$DEBUG" + \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$dump" OUTSIDE = $ADDR \\(MAIN\\)'); do_test(15, |