r33301 - in /trunk/libanyevent-perl: Changes META.yml debian/changelog debian/control lib/AnyEvent.pm lib/AnyEvent/DNS.pm lib/AnyEvent/Handle.pm lib/AnyEvent/Impl/Perl.pm lib/AnyEvent/Socket.pm lib/AnyEvent/Strict.pm lib/AnyEvent/Util.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Wed Apr 15 20:57:30 UTC 2009
Author: ansgar-guest
Date: Wed Apr 15 20:57:25 2009
New Revision: 33301
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33301
Log:
* New upstream release.
* Add myself to Uploaders.
Modified:
trunk/libanyevent-perl/Changes
trunk/libanyevent-perl/META.yml
trunk/libanyevent-perl/debian/changelog
trunk/libanyevent-perl/debian/control
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/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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/Changes (original)
+++ trunk/libanyevent-perl/Changes Wed Apr 15 20:57:25 2009
@@ -1,4 +1,10 @@
Revision history for Perl extension AnyEvent.
+
+4.351 Sat Apr 11 07:56:14 CEST 2009
+ - actually make the signal pipe work under win32.
+ - localise $! in signal handler to avoid changing $!, although
+ perl itself does not seem to save/restore errno either.
+ - set the cloexec flag on the signal pipe (normally set by perl too).
4.35 Fri Mar 27 11:48:20 CET 2009
- event models relying on AnyEvent's signal watcher emulation did
Modified: trunk/libanyevent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/META.yml?rev=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/META.yml (original)
+++ trunk/libanyevent-perl/META.yml Wed Apr 15 20:57:25 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: AnyEvent
-version: 4.35
+version: 4.351
abstract: ~
author: []
license: unknown
Modified: trunk/libanyevent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/debian/changelog?rev=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/changelog (original)
+++ trunk/libanyevent-perl/debian/changelog Wed Apr 15 20:57:25 2009
@@ -1,3 +1,10 @@
+libanyevent-perl (4.351-1) unstable; urgency=low
+
+ * New upstream release.
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Wed, 15 Apr 2009 22:57:08 +0200
+
libanyevent-perl (4.350-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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/debian/control (original)
+++ trunk/libanyevent-perl/debian/control Wed Apr 15 20:57:25 2009
@@ -5,7 +5,8 @@
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>
+ gregor herrmann <gregoa at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.8.1
Homepage: http://search.cpan.org/dist/AnyEvent/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libanyevent-perl/
Modified: trunk/libanyevent-perl/lib/AnyEvent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent.pm?rev=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent.pm Wed Apr 15 20:57:25 2009
@@ -875,7 +875,7 @@
use Carp;
-our $VERSION = 4.35;
+our $VERSION = 4.351;
our $MODEL;
our $AUTOLOAD;
@@ -1072,13 +1072,16 @@
my (undef, %arg) = @_;
unless ($SIGPIPE_R) {
+ require Fcntl;
+
if (AnyEvent::WIN32) {
+ require AnyEvent::Util;
+
($SIGPIPE_R, $SIGPIPE_W) = AnyEvent::Util::portable_pipe ();
AnyEvent::Util::fh_nonblocking ($SIGPIPE_R) if $SIGPIPE_R;
AnyEvent::Util::fh_nonblocking ($SIGPIPE_W) if $SIGPIPE_W; # just in case
} else {
pipe $SIGPIPE_R, $SIGPIPE_W;
- require Fcntl;
fcntl $SIGPIPE_R, &Fcntl::F_SETFL, &Fcntl::O_NONBLOCK if $SIGPIPE_R;
fcntl $SIGPIPE_W, &Fcntl::F_SETFL, &Fcntl::O_NONBLOCK if $SIGPIPE_W; # just in case
}
@@ -1086,6 +1089,10 @@
$SIGPIPE_R
or Carp::croak "AnyEvent: unable to create a signal reporting pipe: $!\n";
+ # not strictly required, as $^F is normally 2, but let's make sure...
+ fcntl $SIGPIPE_R, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC;
+ fcntl $SIGPIPE_W, &Fcntl::F_SETFD, &Fcntl::FD_CLOEXEC;
+
$SIG_IO = AnyEvent->io (fh => $SIGPIPE_R, poll => "r", cb => \&_signal_exec);
}
@@ -1094,6 +1101,7 @@
$SIG_CB{$signal}{$arg{cb}} = $arg{cb};
$SIG{$signal} ||= sub {
+ local $!;
syswrite $SIGPIPE_W, "\x00", 1 unless %SIG_EV;
undef $SIG_EV{$signal};
};
Modified: trunk/libanyevent-perl/lib/AnyEvent/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/DNS.pm?rev=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/DNS.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/DNS.pm Wed Apr 15 20:57:25 2009
@@ -37,7 +37,7 @@
use AnyEvent::Handle ();
use AnyEvent::Util qw(AF_INET6);
-our $VERSION = 4.35;
+our $VERSION = 4.351;
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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Handle.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Handle.pm Wed Apr 15 20:57:25 2009
@@ -16,7 +16,7 @@
=cut
-our $VERSION = 4.35;
+our $VERSION = 4.351;
=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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Impl/Perl.pm Wed Apr 15 20:57:25 2009
@@ -91,7 +91,7 @@
use AnyEvent ();
use AnyEvent::Util ();
-our $VERSION = 4.35;
+our $VERSION = 4.351;
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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Socket.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Socket.pm Wed Apr 15 20:57:25 2009
@@ -59,7 +59,7 @@
tcp_connect
);
-our $VERSION = 4.35;
+our $VERSION = 4.351;
=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=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Strict.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Strict.pm Wed Apr 15 20:57:25 2009
@@ -22,6 +22,8 @@
=cut
package AnyEvent::Strict;
+
+no warnings; # *sigh*
use Carp qw(croak);
Modified: trunk/libanyevent-perl/lib/AnyEvent/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-perl/lib/AnyEvent/Util.pm?rev=33301&op=diff
==============================================================================
--- trunk/libanyevent-perl/lib/AnyEvent/Util.pm (original)
+++ trunk/libanyevent-perl/lib/AnyEvent/Util.pm Wed Apr 15 20:57:25 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.35;
+our $VERSION = 4.351;
BEGIN {
my $posix = 1 * eval { local $SIG{__DIE__}; require POSIX };
More information about the Pkg-perl-cvs-commits
mailing list