r45728 - in /trunk/libio-async-loop-glib-perl: ./ debian/ lib/IO/Async/Loop/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Oct 13 18:17:04 UTC 2009
Author: jawnsy-guest
Date: Tue Oct 13 18:16:57 2009
New Revision: 45728
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45728
Log:
Only compatible with the new libio-async-perl 0.24
Added:
trunk/libio-async-loop-glib-perl/t/01loop-io.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/01loop-io.t
trunk/libio-async-loop-glib-perl/t/02loop-timer.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/02loop-timer.t
trunk/libio-async-loop-glib-perl/t/03loop-signal.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/03loop-signal.t
trunk/libio-async-loop-glib-perl/t/04loop-idle.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/04loop-idle.t
trunk/libio-async-loop-glib-perl/t/05loop-child.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/05loop-child.t
trunk/libio-async-loop-glib-perl/t/06loop-control.t
- copied unchanged from r45717, branches/upstream/libio-async-loop-glib-perl/current/t/06loop-control.t
Removed:
trunk/libio-async-loop-glib-perl/t/01loop.t
trunk/libio-async-loop-glib-perl/t/02timing.t
Modified:
trunk/libio-async-loop-glib-perl/Build.PL
trunk/libio-async-loop-glib-perl/Changes
trunk/libio-async-loop-glib-perl/MANIFEST
trunk/libio-async-loop-glib-perl/META.yml
trunk/libio-async-loop-glib-perl/Makefile.PL
trunk/libio-async-loop-glib-perl/debian/changelog
trunk/libio-async-loop-glib-perl/debian/control
trunk/libio-async-loop-glib-perl/lib/IO/Async/Loop/Glib.pm
Modified: trunk/libio-async-loop-glib-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/Build.PL?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Build.PL (original)
+++ trunk/libio-async-loop-glib-perl/Build.PL Tue Oct 13 18:16:57 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: trunk/libio-async-loop-glib-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/Changes?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Changes (original)
+++ trunk/libio-async-loop-glib-perl/Changes Tue Oct 13 18:16:57 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: trunk/libio-async-loop-glib-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/MANIFEST?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/MANIFEST (original)
+++ trunk/libio-async-loop-glib-perl/MANIFEST Tue Oct 13 18:16:57 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: trunk/libio-async-loop-glib-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/META.yml?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/META.yml (original)
+++ trunk/libio-async-loop-glib-perl/META.yml Tue Oct 13 18:16:57 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: trunk/libio-async-loop-glib-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/Makefile.PL?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Makefile.PL (original)
+++ trunk/libio-async-loop-glib-perl/Makefile.PL Tue Oct 13 18:16:57 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: trunk/libio-async-loop-glib-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/debian/changelog?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/debian/changelog (original)
+++ trunk/libio-async-loop-glib-perl/debian/changelog Tue Oct 13 18:16:57 2009
@@ -1,11 +1,9 @@
-libio-async-loop-glib-perl (0.16-1) UNRELEASED; urgency=low
-
- NO UPLOAD NECESSARY
- IGNORE-VERSION: 0.16-1
+libio-async-loop-glib-perl (0.17-1) unstable; urgency=low
[ Jonathan Yu ]
* New upstream release
- + Small changes for CPANTS
+ + Only compatible with libio-async-perl (>= 0.24)
+ * Standards-Version 3.8.3 (no changes)
[ Salvatore Bonaccorso ]
* debian/control: Changed: Replace versioned (build-)dependency on
@@ -15,7 +13,7 @@
[ Ryan Niebur ]
* Update jawnsy's email address
- -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 01 Sep 2009 21:19:04 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Tue, 13 Oct 2009 10:34:32 -0400
libio-async-loop-glib-perl (0.15-1) unstable; urgency=low
Modified: trunk/libio-async-loop-glib-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/debian/control?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/debian/control (original)
+++ trunk/libio-async-loop-glib-perl/debian/control Tue Oct 13 18:16:57 2009
@@ -3,18 +3,19 @@
Priority: optional
Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl, libtest-exception-perl, libglib-perl,
- libio-async-perl (>= 0.2)
+ libio-async-perl (>= 0.24)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.2
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/IO-Async-Loop-Glib/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-async-loop-glib-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libio-async-loop-glib-perl/
Package: libio-async-loop-glib-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, libio-async-perl (>= 0.2),
+Depends: ${perl:Depends}, ${misc:Depends}, libio-async-perl (>= 0.24),
libglib-perl
+Conflicts: libio-async-perl (<< 0.24)
Description: Perl extension for an event loop using GLib
IO::Async::Loop::Glib is a Perl module that provides an implementation of an
event loop that uses the GNOME Library's main event loop implementation. The
Modified: trunk/libio-async-loop-glib-perl/lib/IO/Async/Loop/Glib.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/lib/IO/Async/Loop/Glib.pm?rev=45728&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/lib/IO/Async/Loop/Glib.pm (original)
+++ trunk/libio-async-loop-glib-perl/lib/IO/Async/Loop/Glib.pm Tue Oct 13 18:16:57 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 )
More information about the Pkg-perl-cvs-commits
mailing list