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