Changeset 3b9ca71 for commands.c

Timestamp:

Feb 19, 2013, 8:29:38 PM (11 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10

Children:

4584d1f

Parents:

69f74c2

git-author:

David Benjamin <davidben@mit.edu> (06/09/12 23:16:53)

git-committer:

David Benjamin <davidben@mit.edu> (02/19/13 20:29:38)

Message:

Allow perl variables to participate in argumentless set/unset

File:

• commands.c (modified) (2 diffs)

commands.c

@@ -1604 +1604 @@
   if (v == NULL) {
     if (!silent) owl_function_error("Unknown variable '%s'", var);
-  } else if (requirebool && owl_variable_get_type(v) != OWL_VARIABLE_BOOL) {
-    // FIXME: The above won't work when we make perl variables OWL_VARIABLE_SV
+  } else if (requirebool && !v->takes_on_off) {
     if (!silent) owl_function_error("Variable '%s' is not a boolean", var);
   } else {
@@ -1634 +1633 @@
   if (v == NULL) {
     if (!silent) owl_function_error("Unknown variable '%s'", var);
-  } else if (owl_variable_get_type(v) != OWL_VARIABLE_BOOL) {
-    // FIXME: The above won't work when we make perl variables OWL_VARIABLE_SV
+  } else if (!v->takes_on_off) {
     if (!silent) owl_function_error("Variable '%s' is not a boolean", var);
   } else {