diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-20 09:50:34 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-20 09:50:34 -0700 |
commit | 0881bdf0247a1d24d801c460af0ae058dda10334 (patch) | |
tree | f13dca7941a0f126b262e2dfeaf99d106bc4c47d /ext/Devel-Peek/t | |
parent | 8c7751f4b0fa8b722f34d514c252da4494d40af0 (diff) | |
download | perl-0881bdf0247a1d24d801c460af0ae058dda10334.tar.gz |
Yet more Peek.t fix-ups
Diffstat (limited to 'ext/Devel-Peek/t')
-rw-r--r-- | ext/Devel-Peek/t/Peek.t | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index fa5748287a..99d29b4646 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -1118,7 +1118,8 @@ unless ($Config{useithreads}) { do_test('regular string constant', perl, 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 5 - FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) + FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 + FLAGS = \\(PADMY,POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 PV = $ADDR "rules"\\\0 CUR = 5 LEN = \d+ @@ -1134,7 +1135,7 @@ unless ($Config{useithreads}) { do_test('string constant now an FBM', perl, 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 5 - FLAGS = \\(PADMY,SMG,POK,READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) + FLAGS = \\(PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) PV = $ADDR "rules"\\\0 CUR = 5 LEN = \d+ @@ -1154,7 +1155,7 @@ unless ($Config{useithreads}) { do_test('string constant still an FBM', perl, 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 5 - FLAGS = \\(PADMY,SMG,POK,READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) + FLAGS = \\(PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) PV = $ADDR "rules"\\\0 CUR = 5 LEN = \d+ @@ -1172,7 +1173,8 @@ unless ($Config{useithreads}) { do_test('regular string constant', beer, 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 6 - FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) + FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 + FLAGS = \\(PADMY,POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 PV = $ADDR "foamy"\\\0 CUR = 5 LEN = \d+ @@ -1183,7 +1185,8 @@ unless ($Config{useithreads}) { do_test('string constant quite unaffected', beer, 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 6 - FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) + FLAGS = \\(PADMY,POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 + FLAGS = \\(PADMY,POK,(?:IsCOW,)?READONLY,pPOK\\) # $] >=5.021005 PV = $ADDR "foamy"\\\0 CUR = 5 LEN = \d+ @@ -1192,7 +1195,7 @@ unless ($Config{useithreads}) { my $want = 'SV = PVMG\\($ADDR\\) at $ADDR REFCNT = 6 - FLAGS = \\(PADMY,SMG,POK,READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) + FLAGS = \\(PADMY,SMG,POK,(?:IsCOW,)?READONLY,(?:IsCOW,)?pPOK,VALID,EVALED\\) PV = $ADDR "foamy"\\\0 CUR = 5 LEN = \d+ |