class objects are read-only in restricted mode

diff --git a/Objects/classobject.c b/Objects/classobject.c
index d4a873f6fe227e22416478b7c8fd7312174cb1f1..0d0a10900e8f7c71b333ba86fb4de91132f58085 100644 (file)
--- a/Objects/classobject.c
+++ b/Objects/classobject.c
@@ -174,6 +174,11 @@ class_setattr(op, name, v)
                        return -1;
                }
        }
+       if (getrestricted()) {
+               err_setstr(RuntimeError,
+                          "classes are read-only in restricted mode");
+               return -1;
+       }
        ac = dictlookup(op->cl_dict, name);
        if (ac != NULL && is_accessobject(ac))
                return setaccessvalue(ac, getowner(), v);