From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 1 Dec 2009 11:25:37 +0000 (+0000)
Subject: make regen_perly following 5ca68648d92617d8.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=235278186f2c0918cc73f3f4c9470f80eeaf8313;p=p5sagit%2Fp5-mst-13.2.git

make regen_perly following 5ca68648d92617d8.
---

diff --git a/perly.act b/perly.act
index 6d6801b..bf80c54 100644
--- a/perly.act
+++ b/perly.act
@@ -252,7 +252,7 @@ case 2:
   case 36:
 #line 334 "perly.y"
     { OP *innerop;
-			  PL_parser->copline = (line_t)(ps[(2) - (9)].val.i_tkval);
+			  PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
 			    (yyval.opval) = block_end((ps[(4) - (9)].val.ival),
 				   newSTATEOP(0, PVAL((ps[(1) - (9)].val.p_tkval)),
 				     innerop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
@@ -267,7 +267,7 @@ case 2:
   case 37:
 #line 347 "perly.y"
     { OP *innerop;
-			  PL_parser->copline = (line_t)(ps[(2) - (9)].val.i_tkval);
+			  PL_parser->copline = (line_t)IVAL((ps[(2) - (9)].val.i_tkval));
 			    (yyval.opval) = block_end((ps[(4) - (9)].val.ival),
 				   newSTATEOP(0, PVAL((ps[(1) - (9)].val.p_tkval)),
 				     innerop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
@@ -362,7 +362,7 @@ case 2:
 
   case 43:
 #line 430 "perly.y"
-    { PL_parser->copline = (line_t) (ps[(2) - (8)].val.i_tkval);
+    { PL_parser->copline = (line_t) IVAL((ps[(2) - (8)].val.i_tkval));
 			    (yyval.opval) = block_end((ps[(4) - (8)].val.ival),
 				newSTATEOP(0, PVAL((ps[(1) - (8)].val.p_tkval)),
 				    newGIVENOP((ps[(6) - (8)].val.opval), scope((ps[(8) - (8)].val.opval)),