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