diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-14 12:24:43 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:06 -0700 |
| commit | 2156df4b70c69d07326f7b43b71b66509ee87db5 (patch) | |
| tree | db2a8a9f71b90c26280453448bd6326a9077bed8 /ext | |
| parent | 00cc874382d18406b0909f99025f70ca0df1996d (diff) | |
| download | perl-2156df4b70c69d07326f7b43b71b66509ee87db5.tar.gz | |
Fix Peek.t
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 164e2ffd2c..04a1dd0339 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -296,8 +296,8 @@ do_test('reference to named subroutine without prototype', RV = $ADDR SV = PVCV\\($ADDR\\) at $ADDR REFCNT = (3|4) - FLAGS = \\(\\) # $] < 5.015 || !thr - FLAGS = \\(DYNFILE\\) # $] >= 5.015 && thr + FLAGS = \\((?:HASEVAL)?\\) # $] < 5.015 || !thr + FLAGS = \\(DYNFILE(?:,HASEVAL)?\\) # $] >= 5.015 && thr IV = 0 # $] < 5.009 NV = 0 # $] < 5.009 COMP_STASH = $ADDR\\t"main" @@ -310,8 +310,8 @@ do_test('reference to named subroutine without prototype', DEPTH = 1(?: MUTEXP = $ADDR OWNER = $ADDR)? - FLAGS = 0x0 # $] < 5.015 || !thr - FLAGS = 0x1000 # $] >= 5.015 && thr + FLAGS = 0x(?:400)?0 # $] < 5.015 || !thr + FLAGS = 0x[145]000 # $] >= 5.015 && thr OUTSIDE_SEQ = \\d+ PADLIST = $ADDR PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) |