[win32] this one with adjusted test numbers

	Message-Id: <m0xjWFq-000EZeC@alias-2.pr.mcs.net>
	Subject: [PERL] [PATCH] Fix local $a[0] and local $h{a}

p4raw-id: //depot/win32/perl@614

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 4264e9b8a1..ac297eefa6 100644
--- a/pp.c
+++ b/pp.c
@@ -2234,7 +2234,7 @@ PP(pp_aslice)
 		if (!svp || *svp == &sv_undef)
 		    DIE(no_aelem, elem);
 		if (op->op_private & OPpLVAL_INTRO)
-		    save_svref(svp);
+		    save_aelem(av, elem, svp);
 	    }
 	    *MARK = svp ? *svp : &sv_undef;
 	}
@@ -2376,7 +2376,7 @@ PP(pp_hslice)
 		if (!he || HeVAL(he) == &sv_undef)
 		    DIE(no_helem, SvPV(keysv, na));
 		if (op->op_private & OPpLVAL_INTRO)
-		    save_svref(&HeVAL(he));
+		    save_helem(hv, keysv, &HeVAL(he));
 	    }
 	    *MARK = he ? HeVAL(he) : &sv_undef;
 	}