case statements can't refer to lists

src/main/modcall.c

@@ -1961,6 +1961,22 @@ static modcallable *do_compile_modcase(modcallable *parent, rlm_components_t com
 			return NULL;
 		}
 
+		/*
+		 *	Only certain things are allowed...
+		 */
+		switch (vpt->type) {
+		case TMPL_TYPE_LITERAL:
+		case TMPL_TYPE_XLAT:
+		case TMPL_TYPE_ATTR:
+		case TMPL_TYPE_REGEX:
+		case TMPL_TYPE_EXEC:
+			break;
+
+		default:
+			cf_log_err_cs(cs, "Syntax error: Cannot match '%s'", name2);
+			return NULL;
+		}
+
 		/*
 		 *	Otherwise a NULL vpt may refer to an attribute defined
 		 *	by a module.  That is checked in pass 2.

src/tests/keywords/case-list

@@ -0,0 +1,19 @@
+switch &User-Name {
+	case "bob" {
+		update reply {
+			Filter-Id := "filter"
+		}
+	}
+
+	case &reply: {	# ERROR
+		update reply {
+			Filter-Id := "doug"
+		}
+	}
+
+	case {
+		update reply {
+			Filter-Id := "default"
+		}
+	}
+}