--- AnyEvent/lib/AnyEvent/Strict.pm	2009/04/14 04:27:32	1.11
+++ AnyEvent/lib/AnyEvent/Strict.pm	2009/04/23 22:44:30	1.12
@@ -119,6 +119,20 @@
    $class->SUPER::child (@_)
 }
 
+sub idle {
+   my $class = shift;
+   my %arg = @_;
+
+   ref $arg{cb}
+      or croak "AnyEvent->idle called with illegal cb argument '$arg{cb}'";
+   delete $arg{cb};
+ 
+   croak "AnyEvent->idle called with unsupported parameter(s) " . join ", ", keys %arg
+      if keys %arg;
+
+   $class->SUPER::idle (@_)
+}
+
 sub condvar {
    my $class = shift;
    my %arg = @_;