r65500 - in /trunk/libio-async-loop-epoll-perl: Changes LICENSE MANIFEST META.yml Makefile.PL README debian/changelog debian/compat debian/control debian/copyright debian/source/ debian/source/format examples/ lib/IO/Async/Loop/Epoll.pm
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Fri Dec 3 21:43:48 UTC 2010
Author: carnil
Date: Fri Dec 3 21:43:39 2010
New Revision: 65500
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65500
Log:
* Team upload.
* New upstream release
- Fixes FTBFS (Closes: #605811)
* Refresh debian/copyright:
- Explicitly refer to GPL-1 licence text in common-licenses.
- Refer to Debian systems in general instead of only Debian GNU/Linux
systems.
* Bump Debehlper compat level to 8. Use now Build.PL.
* debian/control:
- Bump versioned Build-Depends on debhelper (>= 8).
- Move perl to Build-Depends for Module::Build.
* Bump Standards-Version to 3.9.1.
* Convert to '3.0 (quilt)' source package format.
Added:
trunk/libio-async-loop-epoll-perl/debian/source/
trunk/libio-async-loop-epoll-perl/debian/source/format
trunk/libio-async-loop-epoll-perl/examples/
- copied from r65499, branches/upstream/libio-async-loop-epoll-perl/current/examples/
Modified:
trunk/libio-async-loop-epoll-perl/Changes
trunk/libio-async-loop-epoll-perl/LICENSE
trunk/libio-async-loop-epoll-perl/MANIFEST
trunk/libio-async-loop-epoll-perl/META.yml
trunk/libio-async-loop-epoll-perl/Makefile.PL
trunk/libio-async-loop-epoll-perl/README
trunk/libio-async-loop-epoll-perl/debian/changelog
trunk/libio-async-loop-epoll-perl/debian/compat
trunk/libio-async-loop-epoll-perl/debian/control
trunk/libio-async-loop-epoll-perl/debian/copyright
trunk/libio-async-loop-epoll-perl/lib/IO/Async/Loop/Epoll.pm
Modified: trunk/libio-async-loop-epoll-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/Changes?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/Changes (original)
+++ trunk/libio-async-loop-epoll-perl/Changes Fri Dec 3 21:43:39 2010
@@ -1,4 +1,10 @@
Revision history for IO-Async-Loop-Epoll
+
+0.08 CHANGES:
+ * Full example in SYNOPSIS section
+
+ BUGFIXES:
+ * Handle EPOLLERR as on_read_ready
0.07 CHANGES:
* Updated for IO-Async 0.24
Modified: trunk/libio-async-loop-epoll-perl/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/LICENSE?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/LICENSE (original)
+++ trunk/libio-async-loop-epoll-perl/LICENSE Fri Dec 3 21:43:39 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-epoll-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/MANIFEST?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/MANIFEST (original)
+++ trunk/libio-async-loop-epoll-perl/MANIFEST Fri Dec 3 21:43:39 2010
@@ -1,5 +1,6 @@
Build.PL
Changes
+examples/synopsis.pl
lib/IO/Async/Loop/Epoll.pm
LICENSE
Makefile.PL
Modified: trunk/libio-async-loop-epoll-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/META.yml?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/META.yml (original)
+++ trunk/libio-async-loop-epoll-perl/META.yml Fri Dec 3 21:43:39 2010
@@ -1,25 +1,25 @@
---
-name: IO-Async-Loop-Epoll
-version: 0.07
+abstract: 'use C<IO::Async> with C<epoll> on Linux'
author:
- 'Paul Evans <leonerd at leonerd.org.uk>'
-abstract: use C<IO::Async> with C<epoll> on Linux
-license: perl
-resources:
- license: http://dev.perl.org/licenses/
build_requires:
IO::Async::LoopTests: 0.24
Test::More: 0
+configure_requires:
+ Module::Build: 0.36
+generated_by: 'Module::Build version 0.3607'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: IO-Async-Loop-Epoll
+provides:
+ IO::Async::Loop::Epoll:
+ file: lib/IO/Async/Loop/Epoll.pm
+ version: 0.08
requires:
IO::Async: 0.24
IO::Epoll: 0.02
-configure_requires:
- Module::Build: 0.35
-provides:
- IO::Async::Loop::Epoll:
- file: lib/IO/Async/Loop/Epoll.pm
- version: 0.07
-generated_by: Module::Build version 0.35
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+resources:
+ license: http://dev.perl.org/licenses/
+version: 0.08
Modified: trunk/libio-async-loop-epoll-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/Makefile.PL?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/Makefile.PL (original)
+++ trunk/libio-async-loop-epoll-perl/Makefile.PL Fri Dec 3 21:43:39 2010
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.35
+# Note: this file was auto-generated by Module::Build::Compat version 0.3607
use ExtUtils::MakeMaker;
WriteMakefile
(
Modified: trunk/libio-async-loop-epoll-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/README?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/README (original)
+++ trunk/libio-async-loop-epoll-perl/README Fri Dec 3 21:43:39 2010
@@ -4,13 +4,27 @@
SYNOPSIS
use IO::Async::Loop::Epoll;
+ use IO::Async::Stream;
+ use IO::Async::Signal;
+
my $loop = IO::Async::Loop::Epoll->new();
- $loop->add( ... );
+ $loop->add( IO::Async::Stream->new(
+ read_handle => \*STDIN,
+ on_read => sub {
+ my ( $self, $buffref ) = @_;
+ while( $$buffref =~ s/^(.*)\r?\n// ) {
+ print "You said: $1\n";
+ }
+ },
+ ) );
$loop->add( IO::Async::Signal->new(
- name => 'HUP',
- on_receipt => sub { ... },
+ name => 'INT',
+ on_receipt => sub {
+ print "SIGINT, will now quit\n";
+ $loop->loop_stop;
+ },
) );
$loop->loop_forever();
Modified: trunk/libio-async-loop-epoll-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/debian/changelog?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/debian/changelog (original)
+++ trunk/libio-async-loop-epoll-perl/debian/changelog Fri Dec 3 21:43:39 2010
@@ -1,3 +1,21 @@
+libio-async-loop-epoll-perl (0.08-1) unstable; urgency=low
+
+ * Team upload.
+ * New upstream release
+ - Fixes FTBFS (Closes: #605811)
+ * Refresh debian/copyright:
+ - Explicitly refer to GPL-1 licence text in common-licenses.
+ - Refer to Debian systems in general instead of only Debian GNU/Linux
+ systems.
+ * Bump Debehlper compat level to 8. Use now Build.PL.
+ * debian/control:
+ - Bump versioned Build-Depends on debhelper (>= 8).
+ - Move perl to Build-Depends for Module::Build.
+ * Bump Standards-Version to 3.9.1.
+ * Convert to '3.0 (quilt)' source package format.
+
+ -- Salvatore Bonaccorso <carnil at debian.org> Fri, 03 Dec 2010 22:41:31 +0100
+
libio-async-loop-epoll-perl (0.07-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libio-async-loop-epoll-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/debian/compat?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/debian/compat (original)
+++ trunk/libio-async-loop-epoll-perl/debian/compat Fri Dec 3 21:43:39 2010
@@ -1,1 +1,1 @@
-7
+8
Modified: trunk/libio-async-loop-epoll-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/debian/control?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/debian/control (original)
+++ trunk/libio-async-loop-epoll-perl/debian/control Fri Dec 3 21:43:39 2010
@@ -1,12 +1,12 @@
Source: libio-async-loop-epoll-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libio-epoll-perl (>= 0.02),
+Build-Depends: debhelper (>= 8), perl
+Build-Depends-Indep: libio-epoll-perl (>= 0.02),
libtest-refcount-perl, libtest-exception-perl, 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.3
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/IO-Async-Loop-Epoll/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libio-async-loop-epoll-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/
Modified: trunk/libio-async-loop-epoll-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/debian/copyright?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/debian/copyright (original)
+++ trunk/libio-async-loop-epoll-perl/debian/copyright Fri Dec 3 21:43:39 2010
@@ -1,28 +1,28 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Paul Evans <leonerd at leonerd.org.uk>
-Upstream-Source: http://search.cpan.org/dist/IO-Async-Loop-Epoll/
-Upstream-Name: IO-Async-Loop-Epoll
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Paul Evans <leonerd at leonerd.org.uk>
+Source: http://search.cpan.org/dist/IO-Async-Loop-Epoll/
+Name: IO-Async-Loop-Epoll
Files: *
-Copyright: 2008-2009, Paul Evans <leonerd at leonerd.org.uk>
-License-Alias: Perl
-License: Artistic | GPL-1+
+Copyright: 2008-2010, Paul Evans <leonerd at leonerd.org.uk>
+License: Artistic or GPL-1+
Files: debian/*
Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'.
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian systems, the complete text of version 1 of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-1'.
Added: trunk/libio-async-loop-epoll-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/debian/source/format?rev=65500&op=file
==============================================================================
--- trunk/libio-async-loop-epoll-perl/debian/source/format (added)
+++ trunk/libio-async-loop-epoll-perl/debian/source/format Fri Dec 3 21:43:39 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libio-async-loop-epoll-perl/lib/IO/Async/Loop/Epoll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libio-async-loop-epoll-perl/lib/IO/Async/Loop/Epoll.pm?rev=65500&op=diff
==============================================================================
--- trunk/libio-async-loop-epoll-perl/lib/IO/Async/Loop/Epoll.pm (original)
+++ trunk/libio-async-loop-epoll-perl/lib/IO/Async/Loop/Epoll.pm Fri Dec 3 21:43:39 2010
@@ -1,14 +1,14 @@
# You may distribute under the terms of either the GNU General Public License
# or the Artistic License (the same terms as Perl itself)
#
-# (C) Paul Evans, 2008,2009 -- leonerd at leonerd.org.uk
+# (C) Paul Evans, 2008-2010 -- leonerd at leonerd.org.uk
package IO::Async::Loop::Epoll;
use strict;
use warnings;
-our $VERSION = '0.07';
+our $VERSION = '0.08';
use constant API_VERSION => '0.24';
use base qw( IO::Async::Loop );
@@ -18,7 +18,7 @@
use IO::Epoll qw(
epoll_create epoll_ctl epoll_pwait
EPOLL_CTL_ADD EPOLL_CTL_MOD EPOLL_CTL_DEL
- EPOLLIN EPOLLOUT EPOLLHUP
+ EPOLLIN EPOLLOUT EPOLLHUP EPOLLERR
);
use POSIX qw( EINTR SIG_BLOCK SIG_UNBLOCK sigprocmask );
@@ -31,13 +31,27 @@
use IO::Async::Loop::Epoll;
+ use IO::Async::Stream;
+ use IO::Async::Signal;
+
my $loop = IO::Async::Loop::Epoll->new();
- $loop->add( ... );
+ $loop->add( IO::Async::Stream->new(
+ read_handle => \*STDIN,
+ on_read => sub {
+ my ( $self, $buffref ) = @_;
+ while( $$buffref =~ s/^(.*)\r?\n// ) {
+ print "You said: $1\n";
+ }
+ },
+ ) );
$loop->add( IO::Async::Signal->new(
- name => 'HUP',
- on_receipt => sub { ... },
+ name => 'INT',
+ on_receipt => sub {
+ print "SIGINT, will now quit\n";
+ $loop->loop_stop;
+ },
) );
$loop->loop_forever();
@@ -141,7 +155,7 @@
my $watch = $iowatches->{$fd};
- if( $bits & (EPOLLIN|EPOLLHUP) ) {
+ if( $bits & (EPOLLIN|EPOLLHUP|EPOLLERR) ) {
$watch->[1]->() if $watch->[1];
$count++;
}
More information about the Pkg-perl-cvs-commits
mailing list