Add new tests for keys in %+ and %-

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

diff --git a/perly.y b/perly.y
index e4515da..a1f23ab 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -390,8 +390,7 @@ loop        :       label WHILE '(' remember texpr ')' mintro mblock cont
 #ifdef MAD
                          forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ,
                                newSTATEOP(0,
-                                          (($1)->tk_lval.pval
-                                          ?savepv(($1)->tk_lval.pval):Nullch),
+                                          CopLABEL_alloc(($1)->tk_lval.pval),
                                           ($5 ? newOP(OP_NULL, 0) : $5) ),
                                forop));
 
@@ -404,8 +403,7 @@ loop        :       label WHILE '(' remember texpr ')' mintro mblock cont
 #else
                          if ($5) {
                                forop = append_elem(OP_LINESEQ,
-                                        newSTATEOP(0, ($1?savepv($1):Nullch),
-                                                  $5),
+                                        newSTATEOP(0, CopLABEL_alloc($1), $5),
                                        forop);
                          }