r45870 - in /branches/upstream/libanyevent-perl/current: Changes META.json META.yml lib/AnyEvent.pm lib/AnyEvent/DNS.pm lib/AnyEvent/Util.pm

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Fri Oct 16 03:05:11 UTC 2009


Author: jawnsy-guest
Date: Fri Oct 16 03:04:54 2009
New Revision: 45870

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45870
Log:
[svn-upgrade] Integrating new upstream version, libanyevent-perl (5.202)

Modified:
    branches/upstream/libanyevent-perl/current/Changes
    branches/upstream/libanyevent-perl/current/META.json
    branches/upstream/libanyevent-perl/current/META.yml
    branches/upstream/libanyevent-perl/current/lib/AnyEvent.pm
    branches/upstream/libanyevent-perl/current/lib/AnyEvent/DNS.pm
    branches/upstream/libanyevent-perl/current/lib/AnyEvent/Util.pm

Modified: branches/upstream/libanyevent-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/Changes?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/Changes (original)
+++ branches/upstream/libanyevent-perl/current/Changes Fri Oct 16 03:04:54 2009
@@ -1,4 +1,11 @@
 Revision history for Perl extension AnyEvent.
+
+5.202 Wed Oct 14 22:35:44 CEST 2009
+	- AnyEvent::DNS would unexpectedly clobber $_ under windows
+          (analysed by Matthias Waldorf).
+        - AnyEvent::Handle::run_cmd can now pass the PID of the
+          newly-created process, which is much less useful than it might
+          sound (based on patch by Yann Kerherve).
 
 5.201 Tue Sep 29 12:09:25 CEST 2009
 	- AnyEvent:Handle::on_starttls/on_stoptls methods were broken

Modified: branches/upstream/libanyevent-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/META.json?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/META.json (original)
+++ branches/upstream/libanyevent-perl/current/META.json Fri Oct 16 03:04:54 2009
@@ -1,1 +1,1 @@
-{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"5.201","name":"AnyEvent","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{},"recommends":{"Net::SSLeay":1.33,"Guard":1.02,"EV":3.05,"Async::Interrupt":1,"JSON::XS":2.2,"JSON":2.09},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
+{"no_index":{"directory":["t","inc"]},"meta-spec":{"version":1.4,"url":"http://module-build.sourceforge.net/META-spec-v1.4.html"},"generated_by":"ExtUtils::MakeMaker version 6.54","distribution_type":"module","version":"5.202","name":"AnyEvent","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{},"recommends":{"Net::SSLeay":1.33,"Guard":1.02,"EV":3.05,"Async::Interrupt":1,"JSON::XS":2.2,"JSON":2.09},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}

Modified: branches/upstream/libanyevent-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/META.yml?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/META.yml (original)
+++ branches/upstream/libanyevent-perl/current/META.yml Fri Oct 16 03:04:54 2009
@@ -11,7 +11,7 @@
    },
    "generated_by" : "ExtUtils::MakeMaker version 6.54",
    "distribution_type" : "module",
-   "version" : "5.201",
+   "version" : "5.202",
    "name" : "AnyEvent",
    "author" : [],
    "license" : "unknown",

Modified: branches/upstream/libanyevent-perl/current/lib/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/lib/AnyEvent.pm?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/lib/AnyEvent.pm (original)
+++ branches/upstream/libanyevent-perl/current/lib/AnyEvent.pm Fri Oct 16 03:04:54 2009
@@ -1118,7 +1118,7 @@
 
 use Carp ();
 
-our $VERSION = '5.201';
+our $VERSION = '5.202';
 our $MODEL;
 
 our $AUTOLOAD;

Modified: branches/upstream/libanyevent-perl/current/lib/AnyEvent/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/lib/AnyEvent/DNS.pm?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/lib/AnyEvent/DNS.pm (original)
+++ branches/upstream/libanyevent-perl/current/lib/AnyEvent/DNS.pm Fri Oct 16 03:04:54 2009
@@ -897,6 +897,7 @@
          # (all else).
 
          my $dns;
+         local $_;
          while (<$fh>) {
             if (s/^\s.*\bdns\b.*://i) {
                $dns = 1;

Modified: branches/upstream/libanyevent-perl/current/lib/AnyEvent/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-perl/current/lib/AnyEvent/Util.pm?rev=45870&op=diff
==============================================================================
--- branches/upstream/libanyevent-perl/current/lib/AnyEvent/Util.pm (original)
+++ branches/upstream/libanyevent-perl/current/lib/AnyEvent/Util.pm Fri Oct 16 03:04:54 2009
@@ -488,18 +488,20 @@
 =item ">" => \$data
 
 Appends program standard output to the referenced scalar. The condvar will
-not be signalled before EOF was received.
+not be signalled before EOF or an error is signalled.
 
 =item ">" => $filehandle
 
-Redirects program standard output to the given filehandle (or actualy its
+Redirects program standard output to the given filehandle (or actually its
 underlying file descriptor).
 
 =item ">" => $callback->($data)
 
 Calls the given callback each time standard output receives some data,
-passing it the data received. On EOF, the callback will be invoked once
-without any arguments.
+passing it the data received. On EOF or error, the callback will be
+invoked once without any arguments.
+
+The condvar will not be signalled before EOF or an error is signalled.
 
 =item "fd>" => $see_above
 
@@ -514,6 +516,10 @@
 written, or the empty list or C<undef> or a zero-length scalar to signal
 EOF.
 
+Similarly, either the write data must be exhausted or an error is to be
+signalled before the condvar is signalled, for both string-reference and
+callback forms.
+
 =item "fd<" => $see_above
 
 Like "<", but redirects the specified file descriptor instead.
@@ -534,6 +540,15 @@
 C<1> and C<2>.
 
 See C<close_all_fds_except> for more details.
+
+=item '$$' => \$pid
+
+A reference to a scalar which will receive the PID of the newly-created
+subprocess after C<run_cmd> returns.
+
+Note the the PID might already have been recycled and used by an unrelated
+process at the time C<run_cmd> returns, so it's not useful to send
+signals, use a unique key in data structures and so on.
 
 =back
 
@@ -710,6 +725,9 @@
       POSIX::_exit (126);
    }
 
+   ${$arg{'$$'}} = $pid
+      if $arg{'$$'};
+
    %redir = (); # close child side of the fds
 
    my $status;




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