r45716 - in /branches/upstream/libio-async-loop-glib-perl/current: ./ lib/IO/Async/Loop/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Oct 13 16:50:58 UTC 2009
Author: jawnsy-guest
Date: Tue Oct 13 16:50:51 2009
New Revision: 45716
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45716
Log:
[svn-upgrade] Integrating new upstream version, libio-async-loop-glib-perl (0.17)
Added:
branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t
branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t
branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t
branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t
branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t
branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t
Removed:
branches/upstream/libio-async-loop-glib-perl/current/t/01loop.t
branches/upstream/libio-async-loop-glib-perl/current/t/02timing.t
Modified:
branches/upstream/libio-async-loop-glib-perl/current/Build.PL
branches/upstream/libio-async-loop-glib-perl/current/Changes
branches/upstream/libio-async-loop-glib-perl/current/MANIFEST
branches/upstream/libio-async-loop-glib-perl/current/META.yml
branches/upstream/libio-async-loop-glib-perl/current/Makefile.PL
branches/upstream/libio-async-loop-glib-perl/current/lib/IO/Async/Loop/Glib.pm
Modified: branches/upstream/libio-async-loop-glib-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/Build.PL?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/Build.PL (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/Build.PL Tue Oct 13 16:50:51 2009
@@ -7,18 +7,17 @@
(
module_name => 'IO::Async::Loop::Glib',
requires => {
- 'IO::Async::Loop' => 0.20,
+ 'IO::Async::Loop' => 0.24,
'Glib' => 0,
},
build_requires => {
'Test::More' => 0,
- 'Test::Exception' => 0,
- 'Time::HiRes' => 0,
+ 'IO::Async::LoopTests' => '0.24',
},
license => 'perl',
create_makefile_pl => 'traditional',
create_license => 1,
create_readme => 1,
);
-
+
$build->create_build_script;
Modified: branches/upstream/libio-async-loop-glib-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/Changes?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/Changes (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/Changes Tue Oct 13 16:50:51 2009
@@ -1,4 +1,11 @@
Revision history for IO-Async-Loop-Glib
+
+0.17 CHANGES:
+ * Updated for IO-Async 0.24
+ * Use shared acceptance testing provided by IO::Async::LoopTests
+
+ BUGFIXES:
+ * Fixed a reference leak bug in enqueue_timer
0.16 CHANGES:
* Various small updates to keep CPANTS happy
Modified: branches/upstream/libio-async-loop-glib-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/MANIFEST?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/MANIFEST (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/MANIFEST Tue Oct 13 16:50:51 2009
@@ -7,6 +7,10 @@
META.yml
README
t/00use.t
-t/01loop.t
-t/02timing.t
+t/01loop-io.t
+t/02loop-timer.t
+t/03loop-signal.t
+t/04loop-idle.t
+t/05loop-child.t
+t/06loop-control.t
t/99pod.t
Modified: branches/upstream/libio-async-loop-glib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/META.yml?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/META.yml (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/META.yml Tue Oct 13 16:50:51 2009
@@ -1,24 +1,25 @@
---
name: IO-Async-Loop-Glib
-version: 0.16
+version: 0.17
author:
- 'Paul Evans <leonerd at leonerd.org.uk>'
abstract: 'use C<IO::Async> with F<Glib> or F<GTK>'
license: perl
resources:
license: http://dev.perl.org/licenses/
+build_requires:
+ IO::Async::LoopTests: 0.24
+ Test::More: 0
requires:
Glib: 0
- IO::Async::Loop: 0.2
-build_requires:
- Test::Exception: 0
- Test::More: 0
- Time::HiRes: 0
+ IO::Async::Loop: 0.24
+configure_requires:
+ Module::Build: 0.35
provides:
IO::Async::Loop::Glib:
file: lib/IO/Async/Loop/Glib.pm
- version: 0.16
-generated_by: Module::Build version 0.33
+ version: 0.17
+generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: branches/upstream/libio-async-loop-glib-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/Makefile.PL?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/Makefile.PL (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/Makefile.PL Tue Oct 13 16:50:51 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.33
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
use ExtUtils::MakeMaker;
WriteMakefile
(
@@ -6,10 +6,9 @@
'VERSION_FROM' => 'lib/IO/Async/Loop/Glib.pm',
'PREREQ_PM' => {
'Glib' => 0,
- 'IO::Async::Loop' => '0.2',
- 'Test::Exception' => 0,
- 'Test::More' => 0,
- 'Time::HiRes' => 0
+ 'IO::Async::Loop' => '0.24',
+ 'IO::Async::LoopTests' => '0.24',
+ 'Test::More' => 0
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [],
Modified: branches/upstream/libio-async-loop-glib-perl/current/lib/IO/Async/Loop/Glib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/lib/IO/Async/Loop/Glib.pm?rev=45716&op=diff
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/lib/IO/Async/Loop/Glib.pm (original)
+++ branches/upstream/libio-async-loop-glib-perl/current/lib/IO/Async/Loop/Glib.pm Tue Oct 13 16:50:51 2009
@@ -8,7 +8,8 @@
use strict;
use warnings;
-our $VERSION = '0.16';
+our $VERSION = '0.17';
+use constant API_VERSION => '0.24';
use base qw( IO::Async::Loop );
@@ -189,15 +190,17 @@
my $id;
+ my $callbacks = $self->{timercallbacks};
+
my $callback = sub {
$code->();
- delete $self->{timercallbacks}->{$id};
+ delete $callbacks->{$id};
return 0;
};
$id = Glib::Timeout->add( $interval, $callback );
- $self->{timercallbacks}->{$id} = $code;
+ $callbacks->{$id} = $code;
return $id;
}
@@ -227,6 +230,30 @@
$self->cancel_timer( $id );
return $self->enqueue_timer( %params, code => $callback );
+}
+
+# override
+sub watch_idle
+{
+ my $self = shift;
+ my %params = @_;
+
+ my $code = delete $params{code};
+ ref $code eq "CODE" or croak "Expected 'code' to be a CODE reference";
+
+ my $when = delete $params{when} or croak "Expected 'when'";
+ $when eq "later" or croak "Expected 'when' to be 'later'";
+
+ return Glib::Idle->add( sub { $code->(); return 0 } );
+}
+
+# override
+sub unwatch_idle
+{
+ my $self = shift;
+ my ( $id ) = @_;
+
+ Glib::Source->remove( $id );
}
=head2 $count = $loop->loop_once( $timeout )
Added: branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'io' );
Added: branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'timer' );
Added: branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'signal' );
Added: branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'idle' );
Added: branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'child' );
Added: branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t?rev=45716&op=file
==============================================================================
--- branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t (added)
+++ branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t Tue Oct 13 16:50:51 2009
@@ -1,0 +1,4 @@
+#!/usr/bin/perl -w
+
+use IO::Async::LoopTests 0.24;
+run_tests( 'IO::Async::Loop::Glib', 'control' );
More information about the Pkg-perl-cvs-commits
mailing list