dounwind() may cause POPSUB() to diddle the wrong PL_curpad

when @_ is modified, causing coredumps

p4raw-id: //depot/perl@6291

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 6bec999b98..aefaf16e4d 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2659,6 +2659,7 @@ try_autoload:
 	    cx->blk_sub.savearray = GvAV(PL_defgv);
 	    GvAV(PL_defgv) = (AV*)SvREFCNT_inc(av);
 #endif /* USE_THREADS */
+	    cx->blk_sub.oldcurpad = PL_curpad;
 	    cx->blk_sub.argarray = av;
 	    ++MARK;