--- deliantra/server/include/event2inc 2006/08/28 12:07:13 1.1 +++ deliantra/server/include/event2inc 2006/08/29 13:11:58 1.2 @@ -1,5 +1,13 @@ #! perl +print <) { if (/^=head2 (\S+) EVENTS/) { $klass = $1;