r55320 - in /branches/upstream/libasync-interrupt-perl/current: Changes Interrupt.pm META.json META.yml schmorp.h

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Apr  3 02:26:29 2010
New Revision: 55320

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

Modified:
    branches/upstream/libasync-interrupt-perl/current/Changes
    branches/upstream/libasync-interrupt-perl/current/Interrupt.pm
    branches/upstream/libasync-interrupt-perl/current/META.json
    branches/upstream/libasync-interrupt-perl/current/META.yml
    branches/upstream/libasync-interrupt-perl/current/schmorp.h

Modified: branches/upstream/libasync-interrupt-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/Changes?rev=55320&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/Changes (original)
+++ branches/upstream/libasync-interrupt-perl/current/Changes Sat Apr  3 02:26:29 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: branches/upstream/libasync-interrupt-perl/current/Interrupt.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/Interrupt.pm?rev=55320&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/Interrupt.pm (original)
+++ branches/upstream/libasync-interrupt-perl/current/Interrupt.pm Sat Apr  3 02:26:29 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: branches/upstream/libasync-interrupt-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/META.json?rev=55320&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/META.json (original)
+++ branches/upstream/libasync-interrupt-perl/current/META.json Sat Apr  3 02:26:29 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: branches/upstream/libasync-interrupt-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/META.yml?rev=55320&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/META.yml (original)
+++ branches/upstream/libasync-interrupt-perl/current/META.yml Sat Apr  3 02:26:29 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: branches/upstream/libasync-interrupt-perl/current/schmorp.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/schmorp.h?rev=55320&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/schmorp.h (original)
+++ branches/upstream/libasync-interrupt-perl/current/schmorp.h Sat Apr  3 02:26:29 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];
     }