diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-19 22:18:14 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-20 09:25:01 -0700 |
| commit | 3c91ba225d7fe7b359a2594c8eeb19a30f0d61af (patch) | |
| tree | 36f8dbb488f84d752db61c20a0955d3768b02732 /ext/Devel-Peek | |
| parent | 45eaf8afa63b23319b24204f9dbbd0b79cca9f26 (diff) | |
| download | perl-3c91ba225d7fe7b359a2594c8eeb19a30f0d61af.tar.gz | |
Peek.t fix-up
Diffstat (limited to 'ext/Devel-Peek')
| -rw-r--r-- | ext/Devel-Peek/t/Peek.t | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index 34c654c924..f61909968a 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -140,7 +140,7 @@ do_test('immediate constant (string)', "bar", 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) + FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK\\) PV = $ADDR "bar"\\\0 CUR = 3 LEN = \\d+ @@ -708,7 +708,7 @@ do_test('constant subroutine', XSUBANY = $ADDR \\(CONST SV\\) SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) + FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK\\) PV = $ADDR "Perl rules"\\\0 CUR = 10 LEN = \\d+ @@ -874,7 +874,8 @@ do_test('ENAMEs on a stash with no NAME', SV = PVHV\\($ADDR\\) at $ADDR REFCNT = 3 FLAGS = \\(OOK,SHAREKEYS\\) # $] < 5.017 - FLAGS = \\(OOK,OVERLOAD,SHAREKEYS\\) # $] >=5.017 + FLAGS = \\(OOK,OVERLOAD,SHAREKEYS\\) # $] >=5.017 && $]<5.021004 + FLAGS = \\(OOK,SHAREKEYS,OVERLOAD\\) # $] >=5.021004 IV = 1 # $] < 5.009 NV = $FLOAT # $] < 5.009 AUX_FLAGS = 0 # $] > 5.019008 |