r57946 - in /branches/upstream/libasync-interrupt-perl/current: Changes Interrupt.pm Interrupt.xs MANIFEST META.json META.yml README t/06_epipe.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat May 15 12:44:17 UTC 2010
Author: jawnsy-guest
Date: Sat May 15 12:44:10 2010
New Revision: 57946
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57946
Log:
[svn-upgrade] Integrating new upstream version, libasync-interrupt-perl (1.05)
Removed:
branches/upstream/libasync-interrupt-perl/current/META.json
Modified:
branches/upstream/libasync-interrupt-perl/current/Changes
branches/upstream/libasync-interrupt-perl/current/Interrupt.pm
branches/upstream/libasync-interrupt-perl/current/Interrupt.xs
branches/upstream/libasync-interrupt-perl/current/MANIFEST
branches/upstream/libasync-interrupt-perl/current/META.yml
branches/upstream/libasync-interrupt-perl/current/README
branches/upstream/libasync-interrupt-perl/current/t/06_epipe.t
Modified: branches/upstream/libasync-interrupt-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/Changes?rev=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/Changes (original)
+++ branches/upstream/libasync-interrupt-perl/current/Changes Sat May 15 12:44:10 2010
@@ -1,4 +1,7 @@
Revision history for Perl extension Async::Interrupt.
+
+1.05 Sat May 15 02:06:33 CEST 2010
+ - implement $epipe->signal_func method.
1.04 Wed Mar 31 02:46:49 CEST 2010
- a double fork partially killed the event pipe (great testcase
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=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/Interrupt.pm (original)
+++ branches/upstream/libasync-interrupt-perl/current/Interrupt.pm Sat May 15 12:44:10 2010
@@ -235,10 +235,10 @@
BEGIN {
# the next line forces initialisation of internal
# signal handling variables, otherwise, PL_sig_pending
- # etc. will be null pointers.
+ # etc. might be null pointers.
$SIG{KILL} = sub { };
- our $VERSION = '1.04';
+ our $VERSION = '1.05';
require XSLoader;
XSLoader::load ("Async::Interrupt", $VERSION);
@@ -578,13 +578,16 @@
Drain (empty) the pipe.
+=item ($c_func, $c_arg) = $epipe->signal_func
+
=item ($c_func, $c_arg) = $epipe->drain_func
-Returns a function pointer and C<void *> argument that can be called to
-have the effect of C<< $epipe->drain >> on the XS level.
-
-It has the following prototype and needs to be passed the specified
-C<$c_arg>, which is a C<void *> cast to C<IV>:
+These two methods returns a function pointer and C<void *> argument
+that can be called to have the effect of C<< $epipe->signal >> or C<<
+$epipe->drain >>, respectively, on the XS level.
+
+They both have the following prototype and need to be passed their
+C<$c_arg>, which is a C<void *> cast to an C<IV>:
void (*c_func) (void *c_arg)
Modified: branches/upstream/libasync-interrupt-perl/current/Interrupt.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/Interrupt.xs?rev=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/Interrupt.xs (original)
+++ branches/upstream/libasync-interrupt-perl/current/Interrupt.xs Sat May 15 12:44:10 2010
@@ -508,10 +508,12 @@
s_epipe_drain (s_epipe *epp)
void
-drain_func (s_epipe *epp)
+signal_func (s_epipe *epp)
+ ALIAS:
+ drain_func = 1
PPCODE:
EXTEND (SP, 2);
- PUSHs (sv_2mortal (newSViv (PTR2IV (s_epipe_drain))));
+ PUSHs (sv_2mortal (newSViv (PTR2IV (ix ? s_epipe_drain : s_epipe_signal))));
PUSHs (sv_2mortal (newSViv (PTR2IV (epp))));
void
Modified: branches/upstream/libasync-interrupt-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/MANIFEST?rev=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/MANIFEST (original)
+++ branches/upstream/libasync-interrupt-perl/current/MANIFEST Sat May 15 12:44:10 2010
@@ -15,4 +15,3 @@
t/05_var.t
t/06_epipe.t
META.yml Module meta-data (added by MakeMaker)
-META.json Module meta-data (added by MakeMaker)
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=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/META.yml (original)
+++ branches/upstream/libasync-interrupt-perl/current/META.yml Sat May 15 12:44:10 2010
@@ -1,28 +1,21 @@
-{
- "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
- }
-}
+--- #YAML:1.0
+name: Async-Interrupt
+version: 1.05
+abstract: ~
+author: []
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ common::sense: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.55_02
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libasync-interrupt-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/README?rev=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/README (original)
+++ branches/upstream/libasync-interrupt-perl/current/README Sat May 15 12:44:10 2010
@@ -501,12 +501,14 @@
$epipe->drain
Drain (empty) the pipe.
+ ($c_func, $c_arg) = $epipe->signal_func
($c_func, $c_arg) = $epipe->drain_func
- Returns a function pointer and "void *" argument that can be called
- to have the effect of "$epipe->drain" on the XS level.
-
- It has the following prototype and needs to be passed the specified
- $c_arg, which is a "void *" cast to "IV":
+ These two methods returns a function pointer and "void *" argument
+ that can be called to have the effect of "$epipe->signal" or
+ "$epipe->drain", respectively, on the XS level.
+
+ They both have the following prototype and need to be passed their
+ $c_arg, which is a "void *" cast to an "IV":
void (*c_func) (void *c_arg)
Modified: branches/upstream/libasync-interrupt-perl/current/t/06_epipe.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libasync-interrupt-perl/current/t/06_epipe.t?rev=57946&op=diff
==============================================================================
--- branches/upstream/libasync-interrupt-perl/current/t/06_epipe.t (original)
+++ branches/upstream/libasync-interrupt-perl/current/t/06_epipe.t Sat May 15 12:44:10 2010
@@ -2,7 +2,7 @@
no warnings;
-print "1..4\n"; $|=1;
+print "1..6\n"; $|=1;
use Async::Interrupt;
@@ -27,3 +27,6 @@
my $n = select $vR=$vr, undef, undef, 0;
print $n == 0 ? "" : "not ", "ok 4 # $n\n";
+
+print "ok 5 # ", join " ", $ep->signal_func, "\n";
+print "ok 6 # ", join " ", $ep->drain_func, "\n";
More information about the Pkg-perl-cvs-commits
mailing list