X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=consarg.c;h=890ab7e5a488fec68b23a8c581578697660a4004;hb=7e1cf235bd6c3a4fbf1093f84db8002929b8b6c6;hp=ac7a8ca212403ee6edd435b709fbc573dda38d8c;hpb=4e8eb4f0f838674cc353c6a5ff3e06ff40cd5ea9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/consarg.c b/consarg.c
index ac7a8ca..890ab7e 100644
--- a/consarg.c
+++ b/consarg.c
@@ -1,4 +1,4 @@
-/* $Header: consarg.c,v 3.0.1.7 90/10/15 15:55:28 lwall Locked $
+/* $Header: consarg.c,v 3.0.1.8 91/01/11 17:37:31 lwall Locked $
  *
  *    Copyright (c) 1989, Larry Wall
  *
@@ -6,6 +6,10 @@
  *    as specified in the README file that comes with the perl 3.0 kit.
  *
  * $Log:	consarg.c,v $
+ * Revision 3.0.1.8  91/01/11  17:37:31  lwall
+ * patch42: assignment to a slice didn't supply an array context to RHS
+ * patch42: suppressed variable suicide on local($a,$b) = @_
+ * 
  * Revision 3.0.1.7  90/10/15  15:55:28  lwall
  * patch29: defined @foo was behaving inconsistently
  * patch29: -5 % 5 was wrong
@@ -721,6 +725,7 @@ register ARG *arg;
 	else if (arg1->arg_type == O_ASLICE) {
 	    arg1->arg_type = O_LASLICE;
 	    if (arg->arg_type == O_ASSIGN) {
+		dehoist(arg,2);
 		arg[1].arg_flags |= AF_ARYOK;
 		arg[2].arg_flags |= AF_ARYOK;
 	    }
@@ -728,6 +733,7 @@ register ARG *arg;
 	else if (arg1->arg_type == O_HSLICE) {
 	    arg1->arg_type = O_LHSLICE;
 	    if (arg->arg_type == O_ASSIGN) {
+		dehoist(arg,2);
 		arg[1].arg_flags |= AF_ARYOK;
 		arg[2].arg_flags |= AF_ARYOK;
 	    }
@@ -1066,6 +1072,7 @@ ARG *arg2;
     thisexpr++;
     if (arg_common(arg1,thisexpr,1))
 	return 0;	/* hit eval or do {} */
+    stab_lastexpr(defstab) = thisexpr;		/* pretend to hit @_ */
     if (arg_common(arg2,thisexpr,0))
 	return 0;	/* hit identifier again */
     return 1;