--- AnyEvent/lib/AnyEvent/Impl/Glib.pm	2006/10/30 20:52:24	1.6
+++ AnyEvent/lib/AnyEvent/Impl/Glib.pm	2006/11/24 14:40:13	1.7
@@ -59,5 +59,9 @@
    $maincontext->iteration (1) while !${$_[0]};
 }
 
+sub one_event {
+   $maincontext->iteration (1);
+}
+
 1