--- AnyEvent/lib/AnyEvent/Strict.pm 2011/09/02 04:35:03 1.35 +++ AnyEvent/lib/AnyEvent/Strict.pm 2012/04/09 02:25:48 1.41 @@ -39,9 +39,9 @@ my $cb = shift; sub { + local $_; Internals::SvREADONLY $_, 1; &$cb; - Internals::SvREADONLY $_, 0; } }; } else { @@ -71,7 +71,7 @@ if ($FD_I <= 0) { #pop @FD_INUSE while @FD_INUSE && !$FD_INUSE[-1]; - ($FD_I = @FD_INUSE) >= 0 + $FD_I = @FD_INUSE or return; # empty } @@ -85,7 +85,7 @@ or die; } while --$cnt; 1 - } or AE::log crit => "file descriptor $FD_I registered with AnyEvent but prematurely closed, event loop might malfunction.\n"; + } or AE::log crit => "File descriptor $FD_I registered with AnyEvent but prematurely closed, event loop might malfunction."; }; sub io { @@ -233,12 +233,12 @@ $class->SUPER::now (@_) } -1; - =head1 AUTHOR Marc Lehmann - http://home.schmorp.de/ + http://anyevent.schmorp.de =cut +1 +