Method code for $sys.touch()

[Turn off line numbering]

---

  1: arg @nocorelock;
  2: 
  3: if (!nocorelock && sender().has_flag('core) && !writable_core)
  4:     throw(~perm, sender() + " is a core object, and the core isn't writable. '@set $sys:writable-core = yes' to allow this.");
  5: touched = time();

---

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit