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