diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-27 13:46:46 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-27 13:46:46 +0000 |
| commit | 3ce3ed558a83da8e2c458cdff55957484ff161a7 (patch) | |
| tree | 29e33b64bdbac4752bbb0bc1d0f9e69344de2f84 /ext/Devel | |
| parent | 7d879f32d6bc460c660bdefc13574ab1b05062e9 (diff) | |
| download | perl-3ce3ed558a83da8e2c458cdff55957484ff161a7.tar.gz | |
Regexps are now orange.
(Correct a comparison of $] with 5.011 in B.pm)
p4raw-id: //depot/perl@32740
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 76118d1395..65937e75a7 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -275,6 +275,27 @@ do_test(14, \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$dump2" OUTSIDE = $ADDR \\(MAIN\\)'); +if ($] >= 5.011) { +do_test(15, + qr(tic), +'SV = $RV\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(ROK\\) + RV = $ADDR + SV = ORANGE\\($ADDR\\) at $ADDR + REFCNT = 1 + FLAGS = \\(OBJECT,SMG\\) + 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"'); +} else { do_test(15, qr(tic), 'SV = $RV\\($ADDR\\) at $ADDR @@ -294,6 +315,7 @@ do_test(15, PAT = "\(\?-xism:tic\)" REFCNT = 2 STASH = $ADDR\\t"Regexp"'); +} do_test(16, (bless {}, "Tac"), |