Index: frozen-bubble
===================================================================
RCS file: /opt/cvs/frozen-bubble/frozen-bubble,v
retrieving revision 1.257
diff -u -r1.257 frozen-bubble
--- frozen-bubble	26 Oct 2006 18:53:04 -0000	1.257
+++ frozen-bubble	26 Oct 2006 20:09:46 -0000
@@ -2342,9 +2342,11 @@
     my ($rect) = @_;
     return $surfstyle eq 'hashref' ? $rect->{-rect} : $$rect;
 }
+our $evtstyle;
 sub evt {
     my ($evt) = @_;
-    return $surfstyle eq 'hashref' ? $evt->{-event} : $$evt;
+    $evtstyle ||= UNIVERSAL::isa($evt, 'HASH') ? 'hashref' : 'scalarref';
+    return $evtstyle eq 'hashref' ? $evt->{-event} : $$evt;
 }
 
 sub init_game() {