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

Comparing AnyEvent/lib/AnyEvent/Strict.pm (file contents):
Revision 1.35 by root, Fri Sep 2 04:35:03 2011 UTC vs.
Revision 1.41 by root, Mon Apr 9 02:25:48 2012 UTC

       # readonly available (at least 5.8.9+, working better in 5.10.1+)
       *wrap = sub {
          my $cb = shift;
          sub {
+            local $_;
             Internals::SvREADONLY $_, 1;
             &$cb;
-            Internals::SvREADONLY $_, 0;
          }
       };
    } else {
       # or not :/
       my $magic = []; # a unique magic value
 our $FD_CHECK_W = AE::timer 4, 4, sub {
    my $cnt = (@FD_INUSE < 100 * 10 ? int @FD_INUSE * 0.1 : 100) || 10;
    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
    }
    $cnt = $FD_I if $cnt > $FD_I;
             or (POSIX::lseek $FD_I, 0, 1) != -1
             or $! != Errno::EBADF
             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 {
    my $class = shift;
    my (%arg, $fh, $cb, $fd) = @_;
       and croak "AnyEvent->now wrongly called with paramaters";
    $class->SUPER::now (@_)
 }
-1;
 =head1 AUTHOR
  Marc Lehmann <schmorp@schmorp.de>
- http://home.schmorp.de/
+ http://anyevent.schmorp.de
 =cut
+1

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