From 7e6faf7237b1862fce3ebc34f09ee9ac07940638 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Thu, 12 Feb 2015 19:48:50 +0000 Subject: 34519: $_ for arguments of anonymous function --- Src/exec.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Src') diff --git a/Src/exec.c b/Src/exec.c index 3b0e936b4..302e2b510 100644 --- a/Src/exec.c +++ b/Src/exec.c @@ -4456,7 +4456,7 @@ execfuncdef(Estate state, Eprog redir_prog) if (!names) { /* * Anonymous function, execute immediately. - * Function name is "(anon)", parameter list is empty. + * Function name is "(anon)". */ LinkList args; @@ -4477,6 +4477,9 @@ execfuncdef(Estate state, Eprog redir_prog) } } + setunderscore((args && nonempty(args)) ? + ((char *) getdata(lastnode(args))) : ""); + if (!args) args = newlinklist(); shf->node.nam = "(anon)"; -- cgit 1.4.1