diff options
| author | Vincent Pit <perl@profvince.com> | 2009-03-24 21:49:14 +0100 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-03-28 13:59:47 +0100 |
| commit | f20dcd76e7f64bd1c2ec35b4fa66b6376190e3f4 (patch) | |
| tree | 299ac867894e385143e872891714f056280680fb /perly.y | |
| parent | b11720532d118951e85d8a680330b826a6ab4227 (diff) | |
| download | perl-f20dcd76e7f64bd1c2ec35b4fa66b6376190e3f4.tar.gz | |
Allow when to be used as a statement modifier
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 */ |