1 files changed, 2 insertions, 0 deletions
diff --git a/perly.y b/perly.y
index aad4dd7729..c07f48a4d3 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 */