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