[ViewVC] Diff of: cvs/rxvt-unicode/src/urxvt.pm

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.177 by root, Sat Jul 18 06:11:57 2009 UTC vs.
Revision 1.178 by root, Sat Dec 26 09:02:42 2009 UTC

 is that you cannot use blocking APIs, but the non-blocking variant should
 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::];
 sub timer {
    urxvt::timer
       ->new
       ->after ($arg{after})
       ->interval ($arg{interval})
       ->start
-      ->cb (sub {
+      ->cb ($argv{interval} ? $cb : sub {
-        #TODO interval?
         $_[0]->stop; # need to cancel manually
         $cb->();
       })
 }
    my $cb = $arg{cb};
    urxvt::iw
       ->new
       ->start
-      ->cb (sub {
+      ->cb ($cb)
-        #TODO really cancel?
-        $_[0]->stop; # need to cancel manually
-        $cb->();
-      })
 }
 sub child {
    my ($class, %arg) = @_;
    urxvt::pw
       ->new
       ->start ($arg{pid})
       ->cb (sub {
-        #TODO really cancel?
         $_[0]->stop; # need to cancel manually
         $cb->($_[0]->rpid, $_[0]->rstatus);
       })
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines