r50180 - in /trunk/libio-async-loop-glib-perl: Build.PL Changes LICENSE MANIFEST META.yml Makefile.PL debian/changelog debian/libio-async-loop-glib-perl.examples examples/ lib/IO/Async/Loop/Glib.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Jan 4 21:40:48 UTC 2010
Author: jawnsy-guest
Date: Mon Jan 4 21:40:42 2010
New Revision: 50180
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50180
Log:
* New upstream release
* Install examples provided upstream
Added:
trunk/libio-async-loop-glib-perl/debian/libio-async-loop-glib-perl.examples
trunk/libio-async-loop-glib-perl/examples/
- copied from r50179, branches/upstream/libio-async-loop-glib-perl/current/examples/
Modified:
trunk/libio-async-loop-glib-perl/Build.PL
trunk/libio-async-loop-glib-perl/Changes
trunk/libio-async-loop-glib-perl/LICENSE
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/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=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Build.PL (original)
+++ trunk/libio-async-loop-glib-perl/Build.PL Mon Jan 4 21:40:42 2010
@@ -7,13 +7,14 @@
(
module_name => 'IO::Async::Loop::Glib',
requires => {
- 'IO::Async::Loop' => 0.24,
- 'Glib' => 0,
- },
+ 'Glib' => 0,
+ 'IO::Async::Loop' => 0.24,
+ 'Time::HiRes' => 0,
+ },
build_requires => {
- 'Test::More' => 0,
- 'IO::Async::LoopTests' => '0.24',
- },
+ 'Test::More' => 0,
+ 'IO::Async::LoopTests' => '0.24',
+ },
license => 'perl',
create_makefile_pl => 'traditional',
create_license => 1,
Modified: trunk/libio-async-loop-glib-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/Changes?rev=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Changes (original)
+++ trunk/libio-async-loop-glib-perl/Changes Mon Jan 4 21:40:42 2010
@@ -1,4 +1,11 @@
Revision history for IO-Async-Loop-Glib
+
+0.18 CHANGES:
+ * Use Time::HiRes for timing accuracy
+ * Added two small Gtk2-based examples
+
+ BUGFIXES:
+ * Clamp negative timer intervals to 0 - fixes RT 53281
0.17 CHANGES:
* Updated for IO-Async 0.24
Modified: trunk/libio-async-loop-glib-perl/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/LICENSE?rev=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/LICENSE (original)
+++ trunk/libio-async-loop-glib-perl/LICENSE Mon Jan 4 21:40:42 2010
@@ -1,4 +1,4 @@
-This software is copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is copyright (c) 2010 by Paul Evans <leonerd at leonerd.org.uk>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is Copyright (c) 2010 by Paul Evans <leonerd at leonerd.org.uk>.
This is free software, licensed under:
@@ -270,7 +270,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2009 by Paul Evans <leonerd at leonerd.org.uk>.
+This software is Copyright (c) 2010 by Paul Evans <leonerd at leonerd.org.uk>.
This is free software, licensed under:
Modified: trunk/libio-async-loop-glib-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/MANIFEST?rev=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/MANIFEST (original)
+++ trunk/libio-async-loop-glib-perl/MANIFEST Mon Jan 4 21:40:42 2010
@@ -1,5 +1,7 @@
Build.PL
Changes
+examples/hello.pl
+examples/timer.pl
lib/IO/Async/Loop/Glib.pm
LICENSE
Makefile.PL
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=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/META.yml (original)
+++ trunk/libio-async-loop-glib-perl/META.yml Mon Jan 4 21:40:42 2010
@@ -1,6 +1,6 @@
---
name: IO-Async-Loop-Glib
-version: 0.17
+version: 0.18
author:
- 'Paul Evans <leonerd at leonerd.org.uk>'
abstract: 'use C<IO::Async> with F<Glib> or F<GTK>'
@@ -13,12 +13,13 @@
requires:
Glib: 0
IO::Async::Loop: 0.24
+ Time::HiRes: 0
configure_requires:
Module::Build: 0.35
provides:
IO::Async::Loop::Glib:
file: lib/IO/Async/Loop/Glib.pm
- version: 0.17
+ version: 0.18
generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
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=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/Makefile.PL (original)
+++ trunk/libio-async-loop-glib-perl/Makefile.PL Mon Jan 4 21:40:42 2010
@@ -8,7 +8,8 @@
'Glib' => 0,
'IO::Async::Loop' => '0.24',
'IO::Async::LoopTests' => '0.24',
- 'Test::More' => 0
+ 'Test::More' => 0,
+ 'Time::HiRes' => 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=50180&op=diff
==============================================================================
--- trunk/libio-async-loop-glib-perl/debian/changelog (original)
+++ trunk/libio-async-loop-glib-perl/debian/changelog Mon Jan 4 21:40:42 2010
@@ -1,3 +1,10 @@
+libio-async-loop-glib-perl (0.18-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Install examples provided upstream
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 04 Jan 2010 16:37:38 -0500
+
libio-async-loop-glib-perl (0.17-2) unstable; urgency=low
* Add libtest-refcount-perl to Build-Depends-Indep, thanks to Lucas Nussbaum
Added: trunk/libio-async-loop-glib-perl/debian/libio-async-loop-glib-perl.examples
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-glib-perl/debian/libio-async-loop-glib-perl.examples?rev=50180&op=file
==============================================================================
--- trunk/libio-async-loop-glib-perl/debian/libio-async-loop-glib-perl.examples (added)
+++ trunk/libio-async-loop-glib-perl/debian/libio-async-loop-glib-perl.examples Mon Jan 4 21:40:42 2010
@@ -1,0 +1,1 @@
+examples/*
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=50180&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 Mon Jan 4 21:40:42 2010
@@ -8,7 +8,7 @@
use strict;
use warnings;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
use constant API_VERSION => '0.24';
use base qw( IO::Async::Loop );
@@ -16,6 +16,8 @@
use Carp;
use Glib;
+
+use Time::HiRes qw( time );
=head1 NAME
@@ -184,6 +186,7 @@
}
my $interval = $delay * 1000; # miliseconds
+ $interval = 0 if $interval < 0; # clamp or Glib gets upset
my $code = delete $params{code};
ref $code eq "CODE" or croak "Expected 'code' to be a CODE reference";
@@ -286,7 +289,9 @@
my $context = Glib::MainContext->default;
my $ret = $context->iteration( 1 );
- Glib::Source->remove( $timerid ) unless $timed_out;
+ if( defined $timerid ) {
+ Glib::Source->remove( $timerid ) unless $timed_out;
+ }
return $ret and not $timed_out ? 1 : 0;
}
More information about the Pkg-perl-cvs-commits
mailing list