diff options
Diffstat (limited to 'ext/Devel-Peek/t/Peek.t')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 60 |
1 files changed, 58 insertions, 2 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 76a5c7abea..32e6f1eaac 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -355,7 +355,35 @@ do_test('reference to regexp', SUBCOFFSET = 0 SUBBEG = 0x0 ENGINE = $ADDR - MOTHER_RE = $ADDR + MOTHER_RE = $ADDR' +. ($] < 5.019003 ? '' : ' + SV = REGEXP\($ADDR\) at $ADDR + REFCNT = 2 + FLAGS = \(\) + PV = $ADDR "\(\?\^:tic\)" + CUR = 8 + COMPFLAGS = 0x0 \(\) + EXTFLAGS = 0x680000 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + INTFLAGS = 0x0 + NPARENS = 0 + LASTPAREN = 0 + LASTCLOSEPAREN = 0 + MINLEN = 3 + MINLENRET = 3 + GOFS = 0 + PRE_PREFIX = 4 + SUBLEN = 0 + SUBOFFSET = 0 + SUBCOFFSET = 0 + SUBBEG = 0x0 + ENGINE = $ADDR + MOTHER_RE = 0x0 + PAREN_NAMES = 0x0 + SUBSTRS = $ADDR + PPRIVATE = $ADDR + OFFS = $ADDR + QR_ANONCV = 0x0(?: + SAVED_COPY = 0x0)?') . ' PAREN_NAMES = 0x0 SUBSTRS = $ADDR PPRIVATE = $ADDR @@ -1074,7 +1102,35 @@ do_test('UTF-8 in a regular expression', SUBCOFFSET = 0 SUBBEG = 0x0 ENGINE = $ADDR - MOTHER_RE = $ADDR + MOTHER_RE = $ADDR' +. ($] < 5.019003 ? '' : ' + SV = REGEXP\($ADDR\) at $ADDR + REFCNT = 2 + FLAGS = \(UTF8\) + PV = $ADDR "\(\?\^u:\\\\\\\\x\{100\}\)" \[UTF8 "\(\?\^u:\\\\\\\\x\{100\}\)"\] + CUR = 13 + COMPFLAGS = 0x0 \(\) + EXTFLAGS = 0x680040 \(CHECK_ALL,USE_INTUIT_NOML,USE_INTUIT_ML\) + INTFLAGS = 0x0 + NPARENS = 0 + LASTPAREN = 0 + LASTCLOSEPAREN = 0 + MINLEN = 1 + MINLENRET = 1 + GOFS = 0 + PRE_PREFIX = 5 + SUBLEN = 0 + SUBOFFSET = 0 + SUBCOFFSET = 0 + SUBBEG = 0x0 + ENGINE = $ADDR + MOTHER_RE = 0x0 + PAREN_NAMES = 0x0 + SUBSTRS = $ADDR + PPRIVATE = $ADDR + OFFS = $ADDR + QR_ANONCV = 0x0(?: + SAVED_COPY = 0x0)?') . ' PAREN_NAMES = 0x0 SUBSTRS = $ADDR PPRIVATE = $ADDR |