In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0881bdf0247a1d24d801c460af0ae058dda10334?hp=3885a45a68b1e213942bbd5c25da091b4785423e>
- Log ----------------------------------------------------------------- commit 0881bdf0247a1d24d801c460af0ae058dda10334 Author: Father Chrysostomos <[email protected]> Date: Sat Sep 20 09:50:34 2014 -0700 Yet more Peek.t fix-ups M ext/Devel-Peek/t/Peek.t commit 8c7751f4b0fa8b722f34d514c252da4494d40af0 Author: Father Chrysostomos <[email protected]> Date: Sat Sep 20 09:29:25 2014 -0700 Peek.t: This read-only stuff came after 5.21.4 M ext/Devel-Peek/t/Peek.t ----------------------------------------------------------------------- Summary of changes: ext/Devel-Peek/t/Peek.t | 43 +++++++++++++++++++++++-------------------- 1 file changed, 23 insertions(+), 20 deletions(-) diff --git a/ext/Devel-Peek/t/Peek.t b/ext/Devel-Peek/t/Peek.t index c085c77..99d29b4 100644 --- a/ext/Devel-Peek/t/Peek.t +++ b/ext/Devel-Peek/t/Peek.t @@ -140,8 +140,8 @@ do_test('immediate constant (string)', "bar", 'SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021004 - FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021004 + FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 + FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021005 PV = $ADDR "bar"\\\0 CUR = 3 LEN = \\d+ @@ -159,8 +159,8 @@ do_test('immediate constant (integer)', 456, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*IOK,READONLY,pIOK\\) # $] < 5.021004 - FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\) # $] >=5.021004 + FLAGS = \\(.*IOK,READONLY,pIOK\\) # $] < 5.021005 + FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\) # $] >=5.021005 IV = 456'); do_test('assignment of immediate constant (integer)', @@ -210,16 +210,16 @@ do_test('integer constant', 0xabcd, 'SV = IV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*IOK,READONLY,pIOK\\) # $] < 5.021004 - FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\) # $] >=5.021004 + FLAGS = \\(.*IOK,READONLY,pIOK\\) # $] < 5.021005 + FLAGS = \\(.*IOK,READONLY,PROTECT,pIOK\\) # $] >=5.021005 IV = 43981'); do_test('undef', undef, 'SV = NULL\\(0x0\\) at $ADDR REFCNT = \d+ - FLAGS = \\(READONLY\\) # $] < 5.021004 - FLAGS = \\(READONLY,PROTECT\\) # $] >=5.021004 + FLAGS = \\(READONLY\\) # $] < 5.021005 + FLAGS = \\(READONLY,PROTECT\\) # $] >=5.021005 '); do_test('reference to scalar', @@ -683,8 +683,8 @@ do_test('blessed reference', RV = $ADDR SV = NULL\\(0x0\\) at $ADDR REFCNT = \d+ - FLAGS = \\(READONLY\\) # $] < 5.021004 - FLAGS = \\(READONLY,PROTECT\\) # $] >=5.021004 + FLAGS = \\(READONLY\\) # $] < 5.021005 + FLAGS = \\(READONLY,PROTECT\\) # $] >=5.021005 PV = $ADDR "" CUR = 0 LEN = 0 @@ -714,8 +714,8 @@ do_test('constant subroutine', XSUBANY = $ADDR \\(CONST SV\\) SV = PV\\($ADDR\\) at $ADDR REFCNT = 1 - FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021004 - FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021004 + FLAGS = \\(.*POK,READONLY,(?:IsCOW,)?pPOK\\) # $] < 5.021005 + FLAGS = \\(.*POK,(?:IsCOW,)?READONLY,PROTECT,pPOK\\) # $] >=5.021005 PV = $ADDR "Perl rules"\\\0 CUR = 10 LEN = \\d+ @@ -881,8 +881,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 && $]<5.021004 - FLAGS = \\(OOK,SHAREKEYS,OVERLOAD\\) # $] >=5.021004 + FLAGS = \\(OOK,OVERLOAD,SHAREKEYS\\) # $] >=5.017 && $]<5.021005 + FLAGS = \\(OOK,SHAREKEYS,OVERLOAD\\) # $] >=5.021005 IV = 1 # $] < 5.009 NV = $FLOAT # $] < 5.009 AUX_FLAGS = 0 # $] > 5.019008 @@ -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+ -- Perl5 Master Repository
