From 17d52d69ec696ee2cda77f1e6112d7d74a9e33a5 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Sun, 9 Aug 2015 19:10:01 +0100 Subject: Fix retying variables in opposite order. Now gives an error. Add test. --- Src/builtin.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Src') diff --git a/Src/builtin.c b/Src/builtin.c index 34bad035d..c63be7e81 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -2674,7 +2674,9 @@ bin_typeset(char *name, char **argv, LinkList assigns, Options ops, int func) && (locallevel == pm->level || !(on & PM_LOCAL))) { if (pm->node.flags & PM_TIED) { unqueue_signals(); - if (!strcmp(asg->name, pm->ename)) { + if (PM_TYPE(pm->node.flags) != PM_SCALAR) { + zwarnnam(name, "already tied as non-scalar: %s", asg0.name); + } else if (!strcmp(asg->name, pm->ename)) { /* * Already tied in the fashion requested. */ -- cgit 1.4.1