diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-11-24 22:19:06 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-02 00:58:54 +0000 |
| commit | a3985cdcc04b13974afc5f4635645003847806e4 (patch) | |
| tree | 414f284613a099a7fc5dde52837c3e0f3601fc59 /ext/Devel | |
| parent | 9cfe5470b44e33f00045a3b9c3128c6ade6e813f (diff) | |
| download | perl-a3985cdcc04b13974afc5f4635645003847806e4.tar.gz | |
allow evals to see the full lexical scope
Message-ID: <20021124221906.A25386@fdgroup.com>
p4raw-id: //depot/perl@18220
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/Peek.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Devel/Peek/Peek.t b/ext/Devel/Peek/Peek.t index 1230026c2e..529d3c9fa9 100644 --- a/ext/Devel/Peek/Peek.t +++ b/ext/Devel/Peek/Peek.t @@ -221,6 +221,7 @@ do_test(13, (?: MUTEXP = $ADDR OWNER = $ADDR )? FLAGS = 0x4 + OUTSIDE_SEQ = \\d+ PADLIST = $ADDR PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) OUTSIDE = $ADDR \\(MAIN\\)'); @@ -247,6 +248,7 @@ do_test(14, (?: MUTEXP = $ADDR OWNER = $ADDR )? FLAGS = 0x0 + OUTSIDE_SEQ = \\d+ PADLIST = $ADDR PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$pattern" |