From f20dcd76e7f64bd1c2ec35b4fa66b6376190e3f4 Mon Sep 17 00:00:00 2001
From: Vincent Pit <perl@profvince.com>
Date: Tue, 24 Mar 2009 21:49:14 +0100
Subject: Allow when to be used as a statement modifier

---
 perly.y | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perly.y')

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 */
-- 
cgit v1.2.1