diff options
| author | David Mitchell <davem@iabyn.com> | 2017-08-04 14:00:26 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-08-04 14:10:20 +0100 |
| commit | 89042fa4090fc5634ff775e753c58b0827ad6af8 (patch) | |
| tree | f5bcd4768e671a937ee8e3584166db37c45479e9 /ext | |
| parent | 89699a04a6346cff31d7d8cdd6e39556b846dcf6 (diff) | |
| download | perl-89042fa4090fc5634ff775e753c58b0827ad6af8.tar.gz | |
sv_dump(): display regex LEN and LV-as-RX regexp
When the len field of a REGEXP isn't usurped, display it (it used to
always be skipped for REGEXPs).
When it's usurped by a PVLV to point to a 'struct regexp', display it as
a pointer.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index db9354bd0e..58dc109d97 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -362,7 +362,7 @@ do_test('reference to regexp', FLAGS = \\(OBJECT,POK,FAKE,pPOK\\) PV = $ADDR "\\(\\?\\^:tic\\)" CUR = 8 - LEN = 0 # $] < 5.017006 + LEN = 0 STASH = $ADDR\\t"Regexp"' . ($] < 5.013 ? '' : ' @@ -389,6 +389,7 @@ do_test('reference to regexp', FLAGS = \(POK,pPOK\) PV = $ADDR "\(\?\^:tic\)" CUR = 8 + LEN = \d+ COMPFLAGS = 0x0 \(\) EXTFLAGS = 0x680000 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) @@ -1164,6 +1165,7 @@ do_test('UTF-8 in a regular expression', FLAGS = \(OBJECT,POK,FAKE,pPOK,UTF8\) PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] CUR = 13 + LEN = 0 STASH = $ADDR "Regexp" COMPFLAGS = 0x0 \(\) EXTFLAGS = $ADDR \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) @@ -1188,6 +1190,7 @@ do_test('UTF-8 in a regular expression', FLAGS = \(POK,pPOK,UTF8\) PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] CUR = 13 + LEN = \d+ COMPFLAGS = 0x0 \(\) EXTFLAGS = $ADDR \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) (?: ENGINE = $ADDR \(STANDARD\) |