[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent.pm

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.245 by root, Sat Jul 18 05:19:09 2009 UTC vs.
Revision 1.246 by root, Sat Jul 18 15:51:52 2009 UTC

          $_->() for values %{ $SIG_CB{$_} || {} };
       }
    }
 }
+# install a dumym wakeupw atcher to reduce signal catching latency
+sub _sig_add() {
+   unless ($SIG_COUNT++) {
+      # try to align timer on a full-second boundary, if possible
+      my $NOW = AnyEvent->now;
+      $SIG_TW = AnyEvent->timer (
+         after    => $MAX_SIGNAL_LATENCY - ($NOW - int $NOW),
+         interval => $MAX_SIGNAL_LATENCY,
+         cb       => sub { }, # just for the PERL_ASYNC_CHECK
+      );
+   }
+}
+sub _sig_del {
+   undef $SIG_TW
+      unless --$SIG_COUNT;
+}
 sub _signal {
    my (undef, %arg) = @_;
    my $signal = uc $arg{signal}
       or Carp::croak "required option 'signal' is missing";
          undef $SIG_EV{$signal};
       };
       # can't do signal processing without introducing races in pure perl,
       # so limit the signal latency.
-      ++$SIG_COUNT;
+      _sig_add;
-      $SIG_TW ||= AnyEvent->timer (
-         after    => $MAX_SIGNAL_LATENCY,
-         interval => $MAX_SIGNAL_LATENCY,
-         cb       => sub { }, # just for the PERL_ASYNC_CHECK
-      );
    }
    bless [$signal, $arg{cb}], "AnyEvent::Base::signal"
 }
 }
 sub AnyEvent::Base::signal::DESTROY {
    my ($signal, $cb) = @{$_[0]};
-   undef $SIG_TW
+   _sig_del;
-      unless --$SIG_COUNT;
    delete $SIG_CB{$signal}{$cb};
    $HAVE_ASYNC_INTERRUPT
       ? delete $SIG_ASY{$signal}

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