X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.y;h=c07f48a4d3fb5a98f99277d44d92f4b2e16f7441;hb=813720522fb5f54e39efcf9e4103d762ad005f51;hp=aad4dd772934dbe0570dbdb863cfc8ebb3029eab;hpb=4ac71550d23cca4632a2bcdfcb1d83a6bf705e45;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perly.y b/perly.y
index aad4dd7..c07f48a 100644
--- a/perly.y
+++ b/perly.y
@@ -269,6 +269,8 @@ sideff	:	error
 					(OP*)NULL, $3, $1, (OP*)NULL);
 			  TOKEN_GETMAD($2,((LISTOP*)$$)->op_first->op_sibling,'w');
 			}
+	|	expr WHEN expr
+			{ $$ = newWHENOP($3, scope($1)); }
 	;
 
 /* else and elsif blocks */