diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-28 09:59:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-28 09:59:06 +0000 |
| commit | 5c35adbb8fc4c988807097c4d379e2485ada5865 (patch) | |
| tree | 68cb0d31f61fbabefe05d3673ae29eefe3550118 /ext/Devel | |
| parent | 662f1f9e0a1bbee45e1e02386151364c8517604e (diff) | |
| download | perl-5c35adbb8fc4c988807097c4d379e2485ada5865.tar.gz | |
First class regexps.
p4raw-id: //depot/perl@32751
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 65937e75a7..5700a0b758 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -282,19 +282,12 @@ do_test(15, REFCNT = 1 FLAGS = \\(ROK\\) RV = $ADDR - SV = ORANGE\\($ADDR\\) at $ADDR + SV = REGEXP\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(OBJECT,SMG\\) + FLAGS = \\(\\) IV = 0 NV = 0 - PV = 0 - MAGIC = $ADDR - MG_VIRTUAL = $ADDR - MG_TYPE = PERL_MAGIC_qr\(r\) - MG_OBJ = $ADDR - PAT = "\(\?-xism:tic\)" - REFCNT = 2 - STASH = $ADDR\\t"Regexp"'); + PV = 0'); } else { do_test(15, qr(tic), |