Add missing syms to global.sym; update magic doc

[p5sagit/p5-mst-13.2.git] / perly.y

diff --git a/perly.y b/perly.y
index 5ee78f8..a281dff 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -173,15 +173,6 @@ cond       :       IF '(' remember mexpr ')' mblock else
                        { copline = $1;
                            $$ = block_end($3,
                                   newCONDOP(0, $4, scope($6), $7)); }
-       |       IF block block else
-                       { copline = $1;
-                           deprecate("if BLOCK BLOCK");
-                           $$ = newCONDOP(0, scope($2), scope($3), $4); }
-       |       UNLESS block block else
-                       { copline = $1;
-                           deprecate("unless BLOCK BLOCK");
-                           $$ = newCONDOP(0, invert(scalar(scope($2))),
-                                               scope($3), $4); }
        ;
 
 cont   :       /* NULL */
@@ -202,19 +193,6 @@ loop       :       label WHILE '(' remember mtexpr ')' mblock cont
                                   newSTATEOP(0, $1,
                                     newWHILEOP(0, 1, (LOOP*)Nullop,
                                                $5, $7, $8))); }
-       |       label WHILE block block cont
-                       { copline = $2;
-                           deprecate("while BLOCK BLOCK");
-                           $$ = newSTATEOP(0, $1,
-                                  newWHILEOP(0, 1, (LOOP*)Nullop,
-                                             scope($3), $4, $5)); }
-       |       label UNTIL block block cont
-                       { copline = $2;
-                           deprecate("until BLOCK BLOCK");
-                           $$ = newSTATEOP(0, $1,
-                                  newWHILEOP(0, 1, (LOOP*)Nullop,
-                                             invert(scalar(scope($3))),
-                                             $4, $5)); }
        |       label FOR MY remember my_scalar '(' mexpr ')' mblock cont
                        { $$ = block_end($4,
                                 newFOROP(0, $1, $2, $5, $7, $9, $10)); }