r55322 - in /trunk/libasync-interrupt-perl: Changes Interrupt.pm META.json META.yml debian/changelog debian/control debian/copyright schmorp.h
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Apr 3 02:46:14 UTC 2010
Author: jawnsy-guest
Date: Sat Apr 3 02:46:04 2010
New Revision: 55322
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55322
Log:
* Use new DEP5 copyright format
* Rewrite control description
* Standards-Version 3.8.4 (no changes)
Modified:
trunk/libasync-interrupt-perl/Changes
trunk/libasync-interrupt-perl/Interrupt.pm
trunk/libasync-interrupt-perl/META.json
trunk/libasync-interrupt-perl/META.yml
trunk/libasync-interrupt-perl/debian/changelog
trunk/libasync-interrupt-perl/debian/control
trunk/libasync-interrupt-perl/debian/copyright
trunk/libasync-interrupt-perl/schmorp.h
Modified: trunk/libasync-interrupt-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/Changes?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/Changes (original)
+++ trunk/libasync-interrupt-perl/Changes Sat Apr 3 02:46:04 2010
@@ -1,4 +1,8 @@
Revision history for Perl extension Async::Interrupt.
+
+1.04 Wed Mar 31 02:46:49 CEST 2010
+ - a double fork partially killed the event pipe (great testcase
+ by dormando). affects IO::AIO, BDB and Async::Interrupt.
1.03 Tue Nov 24 14:31:10 CET 2009
- port to loser platform.
Modified: trunk/libasync-interrupt-perl/Interrupt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/Interrupt.pm?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/Interrupt.pm (original)
+++ trunk/libasync-interrupt-perl/Interrupt.pm Sat Apr 3 02:46:04 2010
@@ -238,7 +238,7 @@
# etc. will be null pointers.
$SIG{KILL} = sub { };
- our $VERSION = '1.03';
+ our $VERSION = '1.04';
require XSLoader;
XSLoader::load ("Async::Interrupt", $VERSION);
Modified: trunk/libasync-interrupt-perl/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/META.json?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/META.json (original)
+++ trunk/libasync-interrupt-perl/META.json Sat Apr 3 02:46:04 2010
@@ -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":"1.03","name":"Async-Interrupt","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"common::sense":0},"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":"1.04","name":"Async-Interrupt","author":[],"license":"unknown","build_requires":{"ExtUtils::MakeMaker":0},"requires":{"common::sense":0},"abstract":null,"configure_requires":{"ExtUtils::MakeMaker":0}}
Modified: trunk/libasync-interrupt-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/META.yml?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/META.yml (original)
+++ trunk/libasync-interrupt-perl/META.yml Sat Apr 3 02:46:04 2010
@@ -11,7 +11,7 @@
},
"generated_by" : "ExtUtils::MakeMaker version 6.54",
"distribution_type" : "module",
- "version" : "1.03",
+ "version" : "1.04",
"name" : "Async-Interrupt",
"author" : [],
"license" : "unknown",
Modified: trunk/libasync-interrupt-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/debian/changelog?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/debian/changelog (original)
+++ trunk/libasync-interrupt-perl/debian/changelog Sat Apr 3 02:46:04 2010
@@ -1,11 +1,11 @@
-libasync-interrupt-perl (1.03-1) UNRELEASED; urgency=low
-
- This is a port to Win32
- IGNORE-VERSION: 1.03-1
+libasync-interrupt-perl (1.04-1) UNRELEASED; urgency=low
* New upstream release
+ * Use new DEP5 copyright format
+ * Rewrite control description
+ * Standards-Version 3.8.4 (no changes)
- -- Jonathan Yu <jawnsy at cpan.org> Tue, 24 Nov 2009 19:19:25 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 02 Apr 2010 23:19:07 -0400
libasync-interrupt-perl (1.02-1) unstable; urgency=low
Modified: trunk/libasync-interrupt-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/debian/control?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/debian/control (original)
+++ trunk/libasync-interrupt-perl/debian/control Sat Apr 3 02:46:04 2010
@@ -4,7 +4,7 @@
Build-Depends: perl, debhelper (>= 7), libcommon-sense-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Async-Interrupt/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libasync-interrupt-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libasync-interrupt-perl/
@@ -12,15 +12,15 @@
Package: libasync-interrupt-perl
Architecture: any
Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends},
- libcommon-sense-perl
-Description: Perl module to allow C/XS libraries to interrupt perl
- Async::Interrupt implements asynchronous interruptions (think "UNIX signals",
- which are very similar). Modules might want to run code asynchronously (in
- another thread, or from a signal handler), and then signal the interpreter on
- certain events. One common way is to write data to a pipe and use an event
- handling toolkit to watch for I/O events. Another way is to send a signal.
- Those methods are slow, and in the case of a pipe, also not asynchronous - it
- won't interrupt a running Perl interpreter.
+ libcommon-sense-perl
+Description: module to allow C/XS libraries to interrupt perl
+ Async::Interrupt is a Perl module that implements asynchronous interruptions,
+ similar in nature to UNIX signals, in a cross-platform manner. Modules might
+ want to run code asynchronously (in another thread or from a signal handler)
+ and then signal the interpreter on certain events. One common way is to write
+ data to a pipe and use an event handling toolkit to watch for I/O events.
+ Another way is to send a signal. Those methods are slow, and in the case of a
+ pipe, also not asynchronous - it won't interrupt a running Perl interpreter.
.
This module implements asynchronous notifications that enable you to signal
running Perl code from another thread, asynchronously, and sometimes even
Modified: trunk/libasync-interrupt-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/debian/copyright?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/debian/copyright (original)
+++ trunk/libasync-interrupt-perl/debian/copyright Sat Apr 3 02:46:04 2010
@@ -1,30 +1,31 @@
-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/Async-Interrupt/
-Upstream-Name: Async-Interrupt
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Maintainer: Marc Lehmann <schmorp at schmorp.de>
+Source: http://search.cpan.org/dist/Async-Interrupt/
+Name: Async-Interrupt
Files: *
Copyright: 2009, Marc Alexander Lehmann <debian-copyright at schmorp.de>
-License-Alias: Perl
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
X-Comment: This came from an e-mail which was copied to the debian-perl
list: http://lists.debian.org/debian-perl/2009/09/msg00012.html
Files: debian/*
-Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
-License: Artistic | GPL-1+
+Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
+License: Artistic or GPL-1+
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
+
Modified: trunk/libasync-interrupt-perl/schmorp.h
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libasync-interrupt-perl/schmorp.h?rev=55322&op=diff
==============================================================================
--- trunk/libasync-interrupt-perl/schmorp.h (original)
+++ trunk/libasync-interrupt-perl/schmorp.h Sat Apr 3 02:46:04 2010
@@ -446,8 +446,10 @@
if (dup2 (epn.fd [0], epp->fd [0]) < 0)
croak ("unable to dup over old event pipe"); /* should not croak */
- if (epp->fd [1] != epp->fd [0])
- close (epn.fd [0]);
+ close (epn.fd [0]);
+
+ if (epn.fd [0] == epn.fd [1])
+ epn.fd [1] = epp->fd [0];
epn.fd [0] = epp->fd [0];
}
More information about the Pkg-perl-cvs-commits
mailing list