Fix ExtUtils::Miniperl on Win32

[perl5.git] / perly.y

diff --git a/perly.y b/perly.y
index aad4dd7..c07f48a 100644 (file)
--- 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 */