*** empty log message ***

diff --git a/Changes b/Changes
index eec1b66f46c94e709f85adb39c2ad008c8823c89..af14b5c779253ac0bad77db8ef738d8f0aa670d1 100644 (file)
--- a/Changes
+++ b/Changes
@@ -24,9 +24,7 @@ TODO: exg-- patch
 TODO: selection_beg/end should set screen, or so
 TODO:        - upgrade to libev-xx
 TODO: -rv interacts badly with popups.
-TODO: idle/interval timer implementation für anyevent
 TODO: perl-shell-window?
-TODO: restore signal mask when starting shells
 TODO: zweimal numlock? falsche codes rxvt urxvt for numpad?
        - port to glibc-2.10 changes (strchr etc. returning const char *
           in C++), based on patches by Milos Jakubicek and Oliver Mader.
@@ -56,6 +54,7 @@ TODO: zweimal numlock? falsche codes rxvt urxvt for numpad?
           the old version to macosx-pastebin-native.
         - document the -uc option (exg).
         - assertions in libev are now enabled depending on frills.
+        - update AnyEvent implementation to version 5.23 API.
         - work around arrogant bsd idiocies again: netbsd spills the default
           namespace with lots of symbols "for gnu/gcc compatibility" even
           though neither of them does it, and then calls the rest of the world

diff --git a/src/urxvt.pm b/src/urxvt.pm
index dc16048150951170beee877a30756b0e3b3ef1f6..8fa61c3f63824d1ab39a00e6dd2e6f04056d5b46 100644 (file)
--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -1126,7 +1126,7 @@ work.
 
 =cut
 
-our $VERSION = '3.4';
+our $VERSION = '5.23';
 
 $INC{"urxvt/anyevent.pm"} = 1; # mark us as there
 push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
@@ -1141,8 +1141,7 @@ sub timer {
       ->after ($arg{after})
       ->interval ($arg{interval})
       ->start
-      ->cb (sub {
-        #TODO interval?
+      ->cb ($argv{interval} ? $cb : sub {
         $_[0]->stop; # need to cancel manually
         $cb->();
       })
@@ -1173,11 +1172,7 @@ sub idle {
    urxvt::iw
       ->new
       ->start
-      ->cb (sub {
-        #TODO really cancel?
-        $_[0]->stop; # need to cancel manually
-        $cb->();
-      })
+      ->cb ($cb)
 }
 
 sub child {
@@ -1189,7 +1184,6 @@ sub child {
       ->new
       ->start ($arg{pid})
       ->cb (sub {
-        #TODO really cancel?
         $_[0]->stop; # need to cancel manually
         $cb->($_[0]->rpid, $_[0]->rstatus);
       })