r33962 - in /trunk/libanyevent-perl: ./ debian/ lib/ lib/AnyEvent/ lib/AnyEvent/Impl/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Fri Apr 24 16:15:41 UTC 2009


Author: ansgar-guest
Date: Fri Apr 24 16:15:34 2009
New Revision: 33962

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33962
Log:
New upstream release.

Modified:
    trunk/libanyevent-perl/Changes
    trunk/libanyevent-perl/META.yml
    trunk/libanyevent-perl/Makefile.PL
    trunk/libanyevent-perl/README
    trunk/libanyevent-perl/debian/changelog
    trunk/libanyevent-perl/lib/AnyEvent.pm
    trunk/libanyevent-perl/lib/AnyEvent/DNS.pm
    trunk/libanyevent-perl/lib/AnyEvent/Handle.pm
    trunk/libanyevent-perl/lib/AnyEvent/Impl/EV.pm
    trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm
    trunk/libanyevent-perl/lib/AnyEvent/Socket.pm
    trunk/libanyevent-perl/lib/AnyEvent/Strict.pm
    trunk/libanyevent-perl/lib/AnyEvent/Util.pm

Modified: trunk/libanyevent-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/Changes?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/Changes (original)
+++ trunk/libanyevent-perl/Changes Fri Apr 24 16:15:34 2009
@@ -1,4 +1,9 @@
 Revision history for Perl extension AnyEvent.
+
+4.352 Mon Apr 20 16:31:11 CEST 2009
+	- fix AnyEvent::Strict error messages for child watchers.
+        - fix/update Makefile.PL "recommends" versions.
+        - add AnyEvent->now_update.
 
 4.351 Sat Apr 11 07:56:14 CEST 2009
         - actually make the signal pipe work under win32.

Modified: trunk/libanyevent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/META.yml?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/META.yml (original)
+++ trunk/libanyevent-perl/META.yml Fri Apr 24 16:15:34 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               AnyEvent
-version:            4.351
+version:            4.352
 abstract:           ~
 author:  []
 license:            unknown
@@ -17,8 +17,8 @@
     url:      http://module-build.sourceforge.net/META-spec-v1.4.html
     version:  1.4
 recommends:
-    EV:           4.05
-    Guard:        0.5
+    EV:           3.05
+    Guard:        1.02
     JSON:         2.09
     JSON::XS:     2.2
     Net::SSLeay:  1.32

Modified: trunk/libanyevent-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/Makefile.PL?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/Makefile.PL (original)
+++ trunk/libanyevent-perl/Makefile.PL Fri Apr 24 16:15:34 2009
@@ -33,8 +33,8 @@
            "Net::SSLeay" => 1.32,
            "JSON"        => 2.09,
            "JSON::XS"    => 2.2,
-           "EV"          => 4.05,
-           "Guard"       => 0.5,
+           "EV"          => 3.05,
+           "Guard"       => 1.02,
         }
     },
 );

Modified: trunk/libanyevent-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/README?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/README (original)
+++ trunk/libanyevent-perl/README Fri Apr 24 16:15:34 2009
@@ -315,6 +315,20 @@
         can get whatever behaviour you want with any event loop, by taking
         the difference between "AnyEvent->time" and "AnyEvent->now" into
         account.
+
+    AnyEvent->now_update
+        Some event loops (such as EV or AnyEvent::Impl::Perl) cache the
+        current time for each loop iteration (see the discussion of
+        AnyEvent->now, above).
+
+        When a callback runs for a long time (or when the process sleeps),
+        then this "current" time will differ substantially from the real
+        time, which might affect timers and time-outs.
+
+        When this is the case, you can call this method, which will update
+        the event loop's idea of "current time".
+
+        Note that updating the time *might* cause some events to be handled.
 
   SIGNAL WATCHERS
     You can watch for signals using a signal watcher, "signal" is the signal

Modified: trunk/libanyevent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/changelog?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/changelog (original)
+++ trunk/libanyevent-perl/debian/changelog Fri Apr 24 16:15:34 2009
@@ -1,3 +1,9 @@
+libanyevent-perl (4.352-1) unstable; urgency=low
+
+  * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Fri, 24 Apr 2009 18:14:47 +0200
+
 libanyevent-perl (4.351-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libanyevent-perl/lib/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent.pm Fri Apr 24 16:15:34 2009
@@ -321,6 +321,21 @@
 can get whatever behaviour you want with any event loop, by taking the
 difference between C<< AnyEvent->time >> and C<< AnyEvent->now >> into
 account.
+
+=item AnyEvent->now_update
+
+Some event loops (such as L<EV> or L<AnyEvent::Impl::Perl>) cache
+the current time for each loop iteration (see the discussion of L<<
+AnyEvent->now >>, above).
+
+When a callback runs for a long time (or when the process sleeps), then
+this "current" time will differ substantially from the real time, which
+might affect timers and time-outs.
+
+When this is the case, you can call this method, which will update the
+event loop's idea of "current time".
+
+Note that updating the time I<might> cause some events to be handled.
 
 =back
 
@@ -875,7 +890,7 @@
 
 use Carp;
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 our $MODEL;
 
 our $AUTOLOAD;
@@ -917,7 +932,8 @@
    [Prima::                => AnyEvent::Impl::POE::],
 );
 
-our %method = map +($_ => 1), qw(io timer time now signal child condvar one_event DESTROY);
+our %method = map +($_ => 1),
+   qw(io timer time now now_update signal child condvar one_event DESTROY);
 
 our @post_detect;
 
@@ -984,7 +1000,7 @@
             }
 
             $MODEL
-              or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.";
+              or die "No event module selected for AnyEvent and autodetect failed. Install any one of these modules: EV, Event or Glib.\n";
          }
       }
 
@@ -1024,7 +1040,7 @@
                    : Carp::croak "AnyEvent->io requires poll set to either 'r' or 'w'";
 
    open my $fh2, "$mode&" . fileno $fh
-      or die "cannot dup() filehandle: $!";
+      or die "cannot dup() filehandle: $!,";
 
    # we assume CLOEXEC is already set by perl in all important cases
 
@@ -1033,7 +1049,7 @@
 
 package AnyEvent::Base;
 
-# default implementation for now and time
+# default implementations for many methods
 
 BEGIN {
    if (eval "use Time::HiRes (); time (); 1") {
@@ -1046,6 +1062,7 @@
 
 sub time { _time }
 sub now  { _time }
+sub now_update { }
 
 # default implementation for ->condvar
 

Modified: trunk/libanyevent-perl/lib/AnyEvent/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/DNS.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/DNS.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/DNS.pm Fri Apr 24 16:15:34 2009
@@ -37,7 +37,7 @@
 use AnyEvent::Handle ();
 use AnyEvent::Util qw(AF_INET6);
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 
 our @DNS_FALLBACK = (v208.67.220.220, v208.67.222.222);
 

Modified: trunk/libanyevent-perl/lib/AnyEvent/Handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Handle.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Handle.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Handle.pm Fri Apr 24 16:15:34 2009
@@ -16,7 +16,7 @@
 
 =cut
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 
 =head1 SYNOPSIS
 

Modified: trunk/libanyevent-perl/lib/AnyEvent/Impl/EV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Impl/EV.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Impl/EV.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Impl/EV.pm Fri Apr 24 16:15:34 2009
@@ -22,10 +22,11 @@
 no warnings;
 use strict;
 
-use EV;
+use EV 3.44;
 
-sub time { EV::time }
-sub now  { EV::now  }
+sub time       { EV::time       }
+sub now        { EV::now        }
+sub now_update { EV::now_update }
 
 sub timer {
    my ($class, %arg) = @_;

Modified: trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm Fri Apr 24 16:15:34 2009
@@ -91,7 +91,7 @@
 use AnyEvent ();
 use AnyEvent::Util ();
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 
 our ($NOW, $MNOW);
 
@@ -145,7 +145,8 @@
 
 _update_clock;
 
-sub now { $NOW }
+sub now        { $NOW          }
+sub now_update { _update_clock }
 
 # fds[0] is for read, fds[1] is for write watchers
 # fds[poll][V] is the bitmask for select

Modified: trunk/libanyevent-perl/lib/AnyEvent/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Socket.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Socket.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Socket.pm Fri Apr 24 16:15:34 2009
@@ -59,7 +59,7 @@
    tcp_connect
 );
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 
 =item $ipn = parse_ipv4 $dotted_quad
 

Modified: trunk/libanyevent-perl/lib/AnyEvent/Strict.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Strict.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Strict.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Strict.pm Fri Apr 24 16:15:34 2009
@@ -106,14 +106,14 @@
    my %arg = @_;
 
    ref $arg{cb}
-      or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'";
+      or croak "AnyEvent->child called with illegal cb argument '$arg{cb}'";
    delete $arg{cb};
  
    $arg{pid} =~ /^-?\d+$/
-      or croak "AnyEvent->signal called with illegal pid value '$arg{pid}'";
+      or croak "AnyEvent->child called with malformed pid value '$arg{pid}'";
    delete $arg{pid};
  
-   croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg
+   croak "AnyEvent->child called with unsupported parameter(s) " . join ", ", keys %arg
       if keys %arg;
 
    $class->SUPER::child (@_)

Modified: trunk/libanyevent-perl/lib/AnyEvent/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Util.pm?rev=33962&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Util.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Util.pm Fri Apr 24 16:15:34 2009
@@ -34,7 +34,7 @@
 our @EXPORT = qw(fh_nonblocking guard fork_call portable_pipe portable_socketpair);
 our @EXPORT_OK = qw(AF_INET6 WSAEWOULDBLOCK WSAEINPROGRESS WSAEINVAL WSAWOULDBLOCK);
 
-our $VERSION = 4.351;
+our $VERSION = 4.352;
 
 BEGIN {
    my $posix = 1 * eval { local $SIG{__DIE__}; require POSIX };




More information about the Pkg-perl-cvs-commits mailing list