index/value array slice operation

kvaslice operator that imlements %a[0,2,4] syntax which
result in list of index/value pairs. Implemented in
consistency with "key/value hash slice" operator.

1 files changed, 9 insertions, 0 deletions

diff --git a/perly.y b/perly.y
index cf11a9918d..accc95dc34 100644
--- a/perly.y
+++ b/perly.y
@@ -1204,6 +1204,15 @@ term	:	termbinop
 			  TOKEN_GETMAD($2,$$,'[');
 			  TOKEN_GETMAD($4,$$,']');
 			}
+	|	hsh '[' expr ']'                     /* array key/value slice */
+			{ $$ = op_prepend_elem(OP_KVASLICE,
+				newOP(OP_PUSHMARK, 0),
+				    newLISTOP(OP_KVASLICE, 0,
+					list($3),
+					ref(oopsAV($1), OP_KVASLICE)));
+			  TOKEN_GETMAD($2,$$,'[');
+			  TOKEN_GETMAD($4,$$,']');
+			}
 	|	ary '{' expr ';' '}'                 /* @hash{@keys} */
 			{ $$ = op_prepend_elem(OP_HSLICE,
 				newOP(OP_PUSHMARK, 0),