From 7032098e3624717c340da3e1b7cc1d22959257c0 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 30 Jun 2000 04:37:33 +0000 Subject: dounwind() may cause POPSUB() to diddle the wrong PL_curpad when @_ is modified, causing coredumps p4raw-id: //depot/perl@6291 --- pp_hot.c | 1 + 1 file changed, 1 insertion(+) (limited to 'pp_hot.c') 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; -- cgit v1.2.1