In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3246b00e7b4d4d350fa31848e41d8de6f2a53735?hp=0ceeeec981ad5b1ca3ff145e7d3c682d60d0a06c>
- Log ----------------------------------------------------------------- commit 3246b00e7b4d4d350fa31848e41d8de6f2a53735 Author: Father Chrysostomos <[email protected]> Date: Tue Nov 11 12:45:56 2014 -0800 Test the prev commit M t/lib/warnings/op commit 26321c2d12675f6660128512d444e410a55a8f7e Author: Lukas Mai <[email protected]> Date: Tue Nov 11 15:45:43 2014 +0100 rename [] from "anonymous list" to "anonymous array" M opcode.h M regen/opcodes M t/op/postfixderef.t M t/op/ref.t ----------------------------------------------------------------------- Summary of changes: opcode.h | 2 +- regen/opcodes | 2 +- t/lib/warnings/op | 4 +++- t/op/postfixderef.t | 2 +- t/op/ref.t | 2 +- 5 files changed, 7 insertions(+), 5 deletions(-) diff --git a/opcode.h b/opcode.h index 51fbf28..105dcbf 100644 --- a/opcode.h +++ b/opcode.h @@ -690,7 +690,7 @@ EXTCONST char* const PL_op_desc[] = { "join or string", "list", "list slice", - "anonymous list ([])", + "anonymous array ([])", "anonymous hash ({})", "splice", "push", diff --git a/regen/opcodes b/regen/opcodes index d6063a4..d3da201 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -246,7 +246,7 @@ join join or string ck_join fmst@ S L list list ck_null m@ L lslice list slice ck_null 2 H L L -anonlist anonymous list ([]) ck_fun ms@ L +anonlist anonymous array ([]) ck_fun ms@ L anonhash anonymous hash ({}) ck_fun ms@ L splice splice ck_fun m@ A S? S? L diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 9f427bb..4290bcb 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -415,7 +415,8 @@ $a <=> $b; # OP_NCMP "diatrewq"; "igatrewq"; use 5.015; -__SUB__ # OP_RUNCV +__SUB__ ; # OP_RUNCV +[]; # OP_ANONLIST EXPECT Useless use of a constant ("111") in void context at - line 2. Useless use of repeat (x) in void context at - line 3. @@ -462,6 +463,7 @@ Useless use of a constant ("dsatrewq") in void context at - line 57. Useless use of a constant ("diatrewq") in void context at - line 58. Useless use of a constant ("igatrewq") in void context at - line 59. Useless use of __SUB__ in void context at - line 61. +Useless use of anonymous array ([]) in void context at - line 62. ######## # op.c use warnings 'void' ; close STDIN ; diff --git a/t/op/postfixderef.t b/t/op/postfixderef.t index 3d60b9e..79b66de 100644 --- a/t/op/postfixderef.t +++ b/t/op/postfixderef.t @@ -96,7 +96,7 @@ $x = "Good"; is ($refref->$*->$*, 'Good'); # is ($$$refref, 'Good'); -# Test nested anonymous lists. +# Test nested anonymous arrays. $ref = [[],2,[3,4,5,]]; is (scalar $ref->@*, 3); # is (scalar @$ref, 3); diff --git a/t/op/ref.t b/t/op/ref.t index 6ce0480..581aa71 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -80,7 +80,7 @@ $refref = \\$x; $x = "Good"; is ($$$refref, 'Good'); -# Test nested anonymous lists. +# Test nested anonymous arrays. $ref = [[],2,[3,4,5,]]; is (scalar @$ref, 3); -- Perl5 Master Repository
