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