--- deliantra/server/lib/cf.pm	2006/03/26 15:52:03	1.11
+++ deliantra/server/lib/cf.pm	2006/03/28 16:48:11	1.12
@@ -78,12 +78,12 @@
 }
 
 sub inject_global_event {
-   my ($data) = @_;
+   my $event = shift;
 
-   my $cb = $hook[$data->{event_code}]
+   my $cb = $hook[$event]
       or return;
 
-   List::Util::max map $_->($data), values %$cb
+   List::Util::max map &$_, values %$cb
 }
 
 sub inject_command {