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