--- AnyEvent/lib/AnyEvent.pm	2009/08/21 11:59:25	1.286
+++ AnyEvent/lib/AnyEvent.pm	2009/08/25 12:05:30	1.287
@@ -1914,16 +1914,9 @@
       },
    );
 
-   my $time_watcher; # can only be used once
-
-   sub new_timer {
-      $timer = AnyEvent->timer (after => 1, cb => sub {
-         warn "timeout\n"; # print 'timeout' about every second
-         &new_timer; # and restart the time
-      });
-   }
-
-   new_timer; # create first timer
+   my $time_watcher = AnyEvent->timer (after => 1, interval => 1, cb => sub {
+      warn "timeout\n"; # print 'timeout' at most every second
+   });
 
    $cv->recv; # wait until user enters /^q/i