r35890 - in /trunk/libanyevent-perl: ./ debian/ lib/ lib/AnyEvent/ lib/AnyEvent/Impl/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue May 19 18:53:51 UTC 2009
Author: jawnsy-guest
Date: Tue May 19 18:53:46 2009
New Revision: 35890
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35890
Log:
* New upstream release (no new dependencies)
* Forwarded whatis copyright bug (RT#46224)
* Fixed copyright file
* Cleaned up control file description
Added:
trunk/libanyevent-perl/debian/copyright.rationale
Modified:
trunk/libanyevent-perl/Changes
trunk/libanyevent-perl/META.yml
trunk/libanyevent-perl/debian/changelog
trunk/libanyevent-perl/debian/control
trunk/libanyevent-perl/debian/copyright
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/Perl.pm
trunk/libanyevent-perl/lib/AnyEvent/Socket.pm
trunk/libanyevent-perl/lib/AnyEvent/Util.pm
trunk/libanyevent-perl/t/03_child.t
Modified: trunk/libanyevent-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/Changes?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/Changes (original)
+++ trunk/libanyevent-perl/Changes Tue May 19 18:53:46 2009
@@ -1,4 +1,15 @@
Revision history for Perl extension AnyEvent.
+
+4.41 Thu May 14 06:40:11 CEST 2009
+ - work around issues in older perls (5.8.0?) when
+ a signal handler is deleted from the %SIG hash.
+ - use POSIX::_exit in child test, to avoid running
+ destructors.
+ - speed up CHLD handling by relying on SIGCHLD being
+ synchronously delivered, even when we roll our own
+ implementation.
+ - AnyEvent::DNS: add the "dname" resource record name
+ for cosmetic reasons.
4.4 Sun Apr 26 20:12:33 CEST 2009
- implemented idle watchers, where applicable.
Modified: trunk/libanyevent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/META.yml?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/META.yml (original)
+++ trunk/libanyevent-perl/META.yml Tue May 19 18:53:46 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: AnyEvent
-version: 4.4
+version: 4.41
abstract: ~
author: []
license: unknown
Modified: trunk/libanyevent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/changelog?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/changelog (original)
+++ trunk/libanyevent-perl/debian/changelog Tue May 19 18:53:46 2009
@@ -1,3 +1,12 @@
+libanyevent-perl (4.410-1) unstable; urgency=low
+
+ * New upstream release (no new dependencies)
+ * Forwarded whatis copyright bug (RT#46224)
+ * Fixed copyright file
+ * Cleaned up control file description
+
+ -- Jonathan Yu <frequency at cpan.org> Tue, 19 May 2009 14:33:34 -0400
+
libanyevent-perl (4.400-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libanyevent-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/control?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/control (original)
+++ trunk/libanyevent-perl/debian/control Tue May 19 18:53:46 2009
@@ -4,9 +4,9 @@
Build-Depends: debhelper (>= 7), quilt
Build-Depends-Indep: perl (>= 5.6.0-12)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Maximilian Gaà <mxey at cloudconnected.org>,
- gregor herrmann <gregoa at debian.org>,
- Ansgar Burchardt <ansgar at 43-1.org>
+Uploaders: Jonathan Yu <frequency at cpan.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>, gregor herrmann <gregoa at debian.org>,
+ Maximilian Gaà <mxey at cloudconnected.org>
Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/AnyEvent/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libanyevent-perl/
@@ -16,8 +16,15 @@
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}
Recommends: libevent-perl
-Description: framework for multiple event loops
- AnyEvent provides an identical interface to multiple event loops. This allows
- module authors to utilise an event loop without forcing module users to use
- the same event loop (as only a single event loop can coexist peacefully at
- any one time).
+Description: Perl framework to handle multiple event loops
+ AnyEvent is not an event model itself, it only interfaces to whatever event
+ model the main program happens to use, in a pragmatic way. For event models,
+ the statement "there can only be one" is a bitter reality: In general, only
+ one event loop can be active at the same time in a process. This module
+ cannot change this, but it can hide the differences between them.
+ .
+ The goal of AnyEvent is to offer module authors the ability to do event
+ programming (waiting for I/O or timer events) without subscribing to a
+ religion, a way of living, and most importantly: without forcing your module
+ users into the same thing by forcing them to use the same event model you use.
+
Modified: trunk/libanyevent-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/copyright?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/copyright (original)
+++ trunk/libanyevent-perl/debian/copyright Tue May 19 18:53:46 2009
@@ -1,60 +1,24 @@
-Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Format-Specification:
+ http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
Upstream-Maintainer: Marc Lehmann <schmorp at schmorp.de>
Upstream-Source: http://search.cpan.org/dist/AnyEvent/
Upstream-Name: AnyEvent
Files: *
-Copyright: © 2004-2009, Marc Alexander Lehmann <schmorp at schmorp.de>, Robin Redeker <elmex at ta-sa.org>
+Copyright: 2004-2009, Marc Alexander Lehmann <schmorp at schmorp.de>
+ 2004-2009, Robin Redeker <elmex at ta-sa.org>
License-Alias: Perl
License: Artistic | GPL-1+
-AnyEvent did not include a proper copyright statement, therefore I mailed the author for clarification:
-
- Received: from mail.nethype.de (mail.nethype.de [78.47.73.129])
- by sweetshadow.cloudconnected.org (Postfix) with ESMTPS id B3D8D47C59
- for <mxey at cloudconnected.org>; Sun, 18 Jan 2009 19:25:19 +0100 (CET)
- Received: from [10.0.0.5] (helo=doom.schmorp.de)
- by mail.nethype.de with esmtp (Exim 4.69)
- (envelope-from <root at schmorp.de>)
- id 1LOcCg-00027y-O8; Sun, 18 Jan 2009 18:16:58 +0000
- Received: from [10.0.0.2] (helo=fuji.laendle)
- by doom.schmorp.de with esmtp (Exim 4.69)
- (envelope-from <root at schmorp.de>)
- id 1LOcCg-0003OR-HZ; Sun, 18 Jan 2009 18:16:58 +0000
- Received: from root by fuji.laendle with local (Exim 4.69)
- (envelope-from <root at schmorp.de>)
- id 1LOcCg-0005n7-7R; Sun, 18 Jan 2009 18:16:58 +0000
- Message-ID: <20090118181658.GC22157 at schmorp.de>
- Date: Sun, 18 Jan 2009 19:16:58 +0100
- From: Marc Lehmann <schmorp at schmorp.de>
- To: Maximilian Gaà <mxey at cloudconnected.org>
- Cc: debian-perl at lists.debian.org, elmex at x-paste.de, elmex at plan9.de
- Subject: Re: AnyEvent license
-
- [â¦]
-
- The relevant information would be:
-
- - The author(s) name
-
- Marc Alexander Lehmann, Robin Redeker
-
- - The year(s) of the copyright
-
- 2004, 2005, 2006, 2007, 2008, 2009
-
- - The used license(s)
-
- See the file COPYING.
-
- - The URL to the upstream source
-
- either cpan, or the software.schmorp.de package link, wherever you got it
- from.
-
+Files: lib/AnyEvent/Handle.pm, lib/AnyEvent/Intro.pod
+Copyright: 2004-2009, Marc Alexander Lehmann <schmorp at schmorp.de>
+ 2004-2009, Robin Redeker <elmex at ta-sa.org>
+License-Alias: Perl
+License: Artistic | GPL-1+
Files: debian/*
-Copyright: © 2008-2009, Maximilian Gaà <mxey at cloudconnected.org>
+Copyright: 2009, Jonathan Yu <frequency at cpan.org>
+ 2008-2009, Maximilian Gaà <mxey at cloudconnected.org>
License-Alias: Perl
License: Artistic | GPL-1+
Added: trunk/libanyevent-perl/debian/copyright.rationale
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/copyright.rationale?rev=35890&op=file
==============================================================================
--- trunk/libanyevent-perl/debian/copyright.rationale (added)
+++ trunk/libanyevent-perl/debian/copyright.rationale Tue May 19 18:53:46 2009
@@ -1,0 +1,43 @@
+AnyEvent did not include a proper copyright statement, therefore I mailed the author for clarification:
+
+ Received: from mail.nethype.de (mail.nethype.de [78.47.73.129])
+ by sweetshadow.cloudconnected.org (Postfix) with ESMTPS id B3D8D47C59
+ for <mxey at cloudconnected.org>; Sun, 18 Jan 2009 19:25:19 +0100 (CET)
+ Received: from [10.0.0.5] (helo=doom.schmorp.de)
+ by mail.nethype.de with esmtp (Exim 4.69)
+ (envelope-from <root at schmorp.de>)
+ id 1LOcCg-00027y-O8; Sun, 18 Jan 2009 18:16:58 +0000
+ Received: from [10.0.0.2] (helo=fuji.laendle)
+ by doom.schmorp.de with esmtp (Exim 4.69)
+ (envelope-from <root at schmorp.de>)
+ id 1LOcCg-0003OR-HZ; Sun, 18 Jan 2009 18:16:58 +0000
+ Received: from root by fuji.laendle with local (Exim 4.69)
+ (envelope-from <root at schmorp.de>)
+ id 1LOcCg-0005n7-7R; Sun, 18 Jan 2009 18:16:58 +0000
+ Message-ID: <20090118181658.GC22157 at schmorp.de>
+ Date: Sun, 18 Jan 2009 19:16:58 +0100
+ From: Marc Lehmann <schmorp at schmorp.de>
+ To: Maximilian Gaà <mxey at cloudconnected.org>
+ Cc: debian-perl at lists.debian.org, elmex at x-paste.de, elmex at plan9.de
+ Subject: Re: AnyEvent license
+
+ [â¦]
+
+ The relevant information would be:
+
+ - The author(s) name
+
+ Marc Alexander Lehmann, Robin Redeker
+
+ - The year(s) of the copyright
+
+ 2004, 2005, 2006, 2007, 2008, 2009
+
+ - The used license(s)
+
+ See the file COPYING.
+
+ - The URL to the upstream source
+
+ either cpan, or the software.schmorp.de package link, wherever you got it
+ from.
Modified: trunk/libanyevent-perl/lib/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent.pm?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent.pm Tue May 19 18:53:46 2009
@@ -932,7 +932,7 @@
use Carp;
-our $VERSION = 4.4;
+our $VERSION = 4.41;
our $MODEL;
our $AUTOLOAD;
@@ -1173,7 +1173,10 @@
delete $SIG_CB{$signal}{$cb};
- delete $SIG{$signal} unless keys %{ $SIG_CB{$signal} };
+ # delete doesn't work with older perls - they then
+ # print weird messages, or just unconditionally exit
+ # instead of getting the default action.
+ undef $SIG{$signal} unless keys %{ $SIG_CB{$signal} };
}
# default implementation for ->child
@@ -1181,24 +1184,13 @@
our %PID_CB;
our $CHLD_W;
our $CHLD_DELAY_W;
-our $PID_IDLE;
our $WNOHANG;
-sub _child_wait {
+sub _sigchld {
while (0 < (my $pid = waitpid -1, $WNOHANG)) {
$_->($pid, $?) for (values %{ $PID_CB{$pid} || {} }),
(values %{ $PID_CB{0} || {} });
}
-
- undef $PID_IDLE;
-}
-
-sub _sigchld {
- # make sure we deliver these changes "synchronous" with the event loop.
- $CHLD_DELAY_W ||= AnyEvent->timer (after => 0, cb => sub {
- undef $CHLD_DELAY_W;
- &_child_wait;
- });
}
sub child {
@@ -1209,9 +1201,7 @@
$PID_CB{$pid}{$arg{cb}} = $arg{cb};
- unless ($WNOHANG) {
- $WNOHANG = eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
- }
+ $WNOHANG ||= eval { local $SIG{__DIE__}; require POSIX; &POSIX::WNOHANG } || 1;
unless ($CHLD_W) {
$CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_sigchld);
@@ -1232,7 +1222,7 @@
}
# idle emulation is done by simply using a timer, regardless
-# of whether the proces sis idle or not, and not letting
+# of whether the process is idle or not, and not letting
# the callback use more than 50% of the time.
sub idle {
my (undef, %arg) = @_;
Modified: trunk/libanyevent-perl/lib/AnyEvent/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/DNS.pm?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/DNS.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/DNS.pm Tue May 19 18:53:46 2009
@@ -37,7 +37,7 @@
use AnyEvent::Handle ();
use AnyEvent::Util qw(AF_INET6);
-our $VERSION = 4.4;
+our $VERSION = 4.41;
our @DNS_FALLBACK = (v208.67.220.220, v208.67.222.222);
@@ -354,6 +354,7 @@
aaaa => 28,
srv => 33,
naptr => 35, # rfc2915
+ dname => 39, # rfc2672
opt => 41,
spf => 99,
tkey => 249,
@@ -513,6 +514,7 @@
local $ofs = $ofs + $offset - length;
($order, $preference, $flags, $service, $regexp, _dec_name)
},
+ 39 => sub { local $ofs = $ofs - length; _dec_name }, # dname
99 => sub { unpack "(C/a*)*", $_ }, # spf
);
Modified: trunk/libanyevent-perl/lib/AnyEvent/Handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Handle.pm?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Handle.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Handle.pm Tue May 19 18:53:46 2009
@@ -16,7 +16,7 @@
=cut
-our $VERSION = 4.4;
+our $VERSION = 4.41;
=head1 SYNOPSIS
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=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm Tue May 19 18:53:46 2009
@@ -91,7 +91,7 @@
use AnyEvent ();
use AnyEvent::Util ();
-our $VERSION = 4.4;
+our $VERSION = 4.41;
our ($NOW, $MNOW);
Modified: trunk/libanyevent-perl/lib/AnyEvent/Socket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Socket.pm?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Socket.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Socket.pm Tue May 19 18:53:46 2009
@@ -59,7 +59,7 @@
tcp_connect
);
-our $VERSION = 4.4;
+our $VERSION = 4.41;
=item $ipn = parse_ipv4 $dotted_quad
Modified: trunk/libanyevent-perl/lib/AnyEvent/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Util.pm?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Util.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Util.pm Tue May 19 18:53:46 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.4;
+our $VERSION = 4.41;
BEGIN {
my $posix = 1 * eval { local $SIG{__DIE__}; require POSIX };
Modified: trunk/libanyevent-perl/t/03_child.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/t/03_child.t?rev=35890&op=diff
==============================================================================
--- trunk/libanyevent-perl/t/03_child.t (original)
+++ trunk/libanyevent-perl/t/03_child.t Tue May 19 18:53:46 2009
@@ -1,5 +1,3 @@
-$|=1;
-
BEGIN {
# check for broken perls
if ($^O =~ /mswin32/i) {
@@ -17,8 +15,11 @@
}
BEGIN {
+ $|=1;
print "1..7\n"
}
+
+use POSIX ();
use AnyEvent;
use AnyEvent::Impl::Perl;
@@ -38,7 +39,7 @@
unless ($pid) {
print "ok 2\n";
- exit 3;
+ POSIX::_exit 3;
}
my $w = AnyEvent->child (pid => $pid, cb => sub {
@@ -49,7 +50,7 @@
$cv->wait;
-my $pid2 = fork || exit 7;
+my $pid2 = fork || POSIX::_exit 7;
my $cv2 = AnyEvent->condvar;
More information about the Pkg-perl-cvs-commits
mailing list