r70201 - in /trunk/libanyevent-irc-perl: ./ debian/ debian/patches/ debian/source/ lib/AnyEvent/ lib/AnyEvent/IRC/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Mar 1 17:02:13 UTC 2011
Author: angelabad-guest
Date: Tue Mar 1 17:01:58 2011
New Revision: 70201
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70201
Log:
* New upstream release
* Switch to dpkg-source format 3.0 (quilt)
- Remove quilt framework
* debian/copyright: Update format and license stanzas
* Bump Standards-Version to 3.9.1 (no changes)
* debian/patches/00_fix_pod2man: Removed, applied upstream
* debian/patches/fix_spelling_errors: Fix manpages spelling errors
Added:
trunk/libanyevent-irc-perl/META.json
- copied unchanged from r70199, branches/upstream/libanyevent-irc-perl/current/META.json
trunk/libanyevent-irc-perl/debian/patches/fix_spelling_errors
trunk/libanyevent-irc-perl/debian/source/
trunk/libanyevent-irc-perl/debian/source/format
Removed:
trunk/libanyevent-irc-perl/debian/README.source
trunk/libanyevent-irc-perl/debian/patches/00_fix_pod2man
Modified:
trunk/libanyevent-irc-perl/Changes
trunk/libanyevent-irc-perl/MANIFEST
trunk/libanyevent-irc-perl/META.yml
trunk/libanyevent-irc-perl/README
trunk/libanyevent-irc-perl/debian/changelog
trunk/libanyevent-irc-perl/debian/control
trunk/libanyevent-irc-perl/debian/copyright
trunk/libanyevent-irc-perl/debian/patches/series
trunk/libanyevent-irc-perl/debian/rules
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm
trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm
Modified: trunk/libanyevent-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/Changes?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/Changes (original)
+++ trunk/libanyevent-irc-perl/Changes Tue Mar 1 17:01:58 2011
@@ -1,4 +1,12 @@
Revision history for AnyEvent::IRC
+
+0.96 Tue Mar 1 08:23:09 CET 2011
+ - fixed pod in AE::IRC::Util.
+ - applied patches from tokuhirom for the kick event.
+ - small fix in anymsg_cb.
+ - fixed documentation problems, for example w.r.t. channel_change.
+ - added "support" for broken IRC servers, which send multiple
+ carriage returns on line endings.
0.95 Thu Nov 5 00:15:55 CET 2009
- added away_status method and events for tracking your away status.
Modified: trunk/libanyevent-irc-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/MANIFEST?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/MANIFEST (original)
+++ trunk/libanyevent-irc-perl/MANIFEST Tue Mar 1 17:01:58 2011
@@ -16,3 +16,4 @@
t/00_load.t
t/01_util.t
META.yml Module meta-data (added by MakeMaker)
+META.json Module meta-data (added by MakeMaker)
Modified: trunk/libanyevent-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/META.yml?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/META.yml (original)
+++ trunk/libanyevent-irc-perl/META.yml Tue Mar 1 17:01:58 2011
@@ -1,27 +1,35 @@
---- #YAML:1.0
-name: AnyEvent-IRC
-version: 0.95
-abstract: An event system independend IRC protocol module
-author:
- - Robin Redeker <elmex at ta-sa.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
-build_requires:
- ExtUtils::MakeMaker: 0
-requires:
- AnyEvent: 5.111
- common::sense: 0
- Encode: 0
- Object::Event: 0.6
- Scalar::Util: 0
- Test::More: 0
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.55_02
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+{
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "meta-spec" : {
+ "version" : 1.4,
+ "url" : "http://module-build.sourceforge.net/META-spec-v1.4.html"
+ },
+ "generated_by" : "ExtUtils::MakeMaker version 6.56",
+ "distribution_type" : "module",
+ "version" : "0.96",
+ "name" : "AnyEvent-IRC",
+ "author" : [
+ "Robin Redeker <elmex at ta-sa.org>"
+ ],
+ "license" : "perl",
+ "build_requires" : {
+ "ExtUtils::MakeMaker" : 0
+ },
+ "requires" : {
+ "Scalar::Util" : 0,
+ "Test::More" : 0,
+ "AnyEvent" : "5.111",
+ "Object::Event" : "0.6",
+ "common::sense" : 0,
+ "Encode" : 0
+ },
+ "abstract" : "An event based IRC protocol client API",
+ "configure_requires" : {
+ "ExtUtils::MakeMaker" : 0
+ }
+}
Modified: trunk/libanyevent-irc-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/README?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/README (original)
+++ trunk/libanyevent-irc-perl/README Tue Mar 1 17:01:58 2011
@@ -1,8 +1,8 @@
NAME
- AnyEvent::IRC - An event system independend IRC protocol module
+ AnyEvent::IRC - An event based IRC protocol client API
VERSION
- Version 0.95
+ Version 0.96
SYNOPSIS
Using the simplistic AnyEvent::IRC::Connection:
@@ -150,6 +150,8 @@
* Maximilian Gass - Added support for ISUPPORT and CASEMAPPING.
* Zaba - Thanks for the useful input about IRC.
+ * tokuhirom - Thanks for patches for the kick event.
+ * Kazuhiro Osawa - Thanks for the documenation fix.
COPYRIGHT & LICENSE
Copyright 2006-2009 Robin Redeker, all rights reserved.
Modified: trunk/libanyevent-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/changelog?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/changelog (original)
+++ trunk/libanyevent-irc-perl/debian/changelog Tue Mar 1 17:01:58 2011
@@ -1,3 +1,15 @@
+libanyevent-irc-perl (0.96-1) unstable; urgency=low
+
+ * New upstream release
+ * Switch to dpkg-source format 3.0 (quilt)
+ - Remove quilt framework
+ * debian/copyright: Update format and license stanzas
+ * Bump Standards-Version to 3.9.1 (no changes)
+ * debian/patches/00_fix_pod2man: Removed, applied upstream
+ * debian/patches/fix_spelling_errors: Fix manpages spelling errors
+
+ -- Angel Abad <angelabad at gmail.com> Tue, 01 Mar 2011 18:01:42 +0100
+
libanyevent-irc-perl (0.95-1) unstable; urgency=low
* New upstream release
Modified: trunk/libanyevent-irc-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/control?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/control (original)
+++ trunk/libanyevent-irc-perl/debian/control Tue Mar 1 17:01:58 2011
@@ -1,22 +1,26 @@
Source: libanyevent-irc-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
-Build-Depends-Indep: libanyevent-perl, libcommon-sense-perl,
- libobject-event-perl, perl
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: libanyevent-perl,
+ libcommon-sense-perl,
+ libobject-event-perl,
+ perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Maximilian Gass <mxey at cloudconnected.org>,
Jonathan Yu <jawnsy at cpan.org>,
Angel Abad <angelabad at gmail.com>
-Standards-Version: 3.8.3
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/AnyEvent-IRC/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libanyevent-irc-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libanyevent-irc-perl/
Package: libanyevent-irc-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libanyevent-perl,
- libcommon-sense-perl, libobject-event-perl
+Depends: ${misc:Depends}, ${perl:Depends},
+ libanyevent-perl,
+ libcommon-sense-perl,
+ libobject-event-perl
Description: Perl module for handling IRC connections
AnyEvent::IRC is a Perl module that can be conceptualized as a toolbox for
handling Internet Relay Chat (IRC) connections and communications. It won't
Modified: trunk/libanyevent-irc-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/copyright?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/copyright (original)
+++ trunk/libanyevent-irc-perl/debian/copyright Tue Mar 1 17:01:58 2011
@@ -1,30 +1,30 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Robin Redeker <elmex at ta-sa.org>
-Upstream-Source: http://search.cpan.org/dist/AnyEvent-IRC/
-Upstream-Name: AnyEvent-IRC
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Maintainer: Robin Redeker <elmex at ta-sa.org>
+Source: http://search.cpan.org/dist/AnyEvent-IRC/
+Name: AnyEvent-IRC
Files: *
Copyright: 2006-2009, Robin Redeker <elmex at ta-sa.org>
License-Alias: Perl
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2009, Angel Abad <angelabad at gmail.com>
+Copyright: 2009, 2011, Angel Abad <angelabad at gmail.com>
2009, Jonathan Yu <jawnsy at cpan.org>
- 2009, Maximilian Gass <mxey at cloudconnected.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/libanyevent-irc-perl/debian/patches/fix_spelling_errors
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/patches/fix_spelling_errors?rev=70201&op=file
==============================================================================
--- trunk/libanyevent-irc-perl/debian/patches/fix_spelling_errors (added)
+++ trunk/libanyevent-irc-perl/debian/patches/fix_spelling_errors Tue Mar 1 17:01:58 2011
@@ -1,0 +1,26 @@
+Description: Fix spelling errors in manpages
+Author: Angel Abad <angelabad at gmail.com>
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=66293
+
+--- a/lib/AnyEvent/IRC/Client.pm
++++ b/lib/AnyEvent/IRC/Client.pm
+@@ -957,7 +957,7 @@
+
+ =item $cl->nick_ident ($nick)
+
+-This method returns the whole ident of the C<$nick> if the informations is available.
++This method returns the whole ident of the C<$nick> if the information is available.
+ If the nick's ident hasn't been seen yet, undef is returned.
+
+ B<NOTE:> If you want to rely on the C<nick_ident> of your own nick you should
+--- a/lib/AnyEvent/IRC/Util.pm
++++ b/lib/AnyEvent/IRC/Util.pm
+@@ -207,7 +207,7 @@
+ or PRIVMSG command. C<@msg> is an array of strings or array references.
+ If an array reference occurs in the C<@msg> array it's first
+ element will be interpreted as CTCP TAG (eg. one of PING, VERSION, .. whatever)
+-the rest of the array ref will be appended to the tag and seperated by
++the rest of the array ref will be appended to the tag and separated by
+ spaces.
+
+ All parts of the message will be concatenated and lowlevel quoted.
Modified: trunk/libanyevent-irc-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/patches/series?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/patches/series (original)
+++ trunk/libanyevent-irc-perl/debian/patches/series Tue Mar 1 17:01:58 2011
@@ -1,1 +1,1 @@
-00_fix_pod2man
+fix_spelling_errors
Modified: trunk/libanyevent-irc-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/rules?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/debian/rules (original)
+++ trunk/libanyevent-irc-perl/debian/rules Tue Mar 1 17:01:58 2011
@@ -1,4 +1,4 @@
#!/usr/bin/make -f
%:
- dh $@ --with quilt
+ dh $@
Added: trunk/libanyevent-irc-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/debian/source/format?rev=70201&op=file
==============================================================================
--- trunk/libanyevent-irc-perl/debian/source/format (added)
+++ trunk/libanyevent-irc-perl/debian/source/format Tue Mar 1 17:01:58 2011
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC.pm Tue Mar 1 17:01:58 2011
@@ -4,15 +4,15 @@
=head1 NAME
-AnyEvent::IRC - An event system independend IRC protocol module
+AnyEvent::IRC - An event based IRC protocol client API
=head1 VERSION
-Version 0.95
+Version 0.96
=cut
-our $VERSION = '0.95';
+our $VERSION = '0.96';
=head1 SYNOPSIS
@@ -171,6 +171,8 @@
* Maximilian Gass - Added support for ISUPPORT and CASEMAPPING.
* Zaba - Thanks for the useful input about IRC.
+ * tokuhirom - Thanks for patches for the kick event.
+ * Kazuhiro Osawa - Thanks for the documenation fix.
=head1 COPYRIGHT & LICENSE
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Client.pm Tue Mar 1 17:01:58 2011
@@ -161,11 +161,11 @@
C<$is_myself> is true if yourself are the one who PARTs.
C<$msg> is the PART message.
-=item part => $kicked_nick, $channel, $is_myself, $msg
-
-Emitted when C<$kicked_nick> is KICKed from the channel C<$channel>.
-C<$is_myself> is true if yourself are the one who got KICKed.
-C<$msg> is the PART message.
+=item kick => $kicked_nick, $channel, $is_myself, $msg, $kicker_nick
+
+Emitted when C<$kicked_nick> is KICKed from the channel C<$channel> by
+C<$kicker_nick>. C<$is_myself> is true if yourself are the one who got KICKed.
+C<$msg> is the KICK message.
=item nick_change => $old_nick, $new_nick, $is_myself
@@ -1357,7 +1357,9 @@
if ($cmd =~ /^\d\d\d$/ && not ($cmd >= 400 && $cmd <= 599)) {
$self->event (statmsg => $msg);
} elsif (($cmd >= 400 && $cmd <= 599) || $cmd eq 'error') {
- $self->event (error => $msg->{command}, $msg->{params}->[-1], $msg);
+ $self->event (error => $msg->{command},
+ (@{$msg->{params}} ? $msg->{params}->[-1] : ''),
+ $msg);
}
}
@@ -1485,7 +1487,7 @@
$self->event (nick_change => $nick, $newnick, $wasme);
for (@chans) {
- $self->event (channel_change => $_, $nick, $newnick, $wasme);
+ $self->event (channel_change => $msg, $_, $nick, $newnick, $wasme);
}
}
@@ -1551,8 +1553,9 @@
my ($self, $msg) = @_;
my $chan = $msg->{params}->[0];
my $kicked_nick = $msg->{params}->[1];
-
- $self->event (kick => $kicked_nick, $chan, $self->_was_me ($msg), $msg->{params}->[1]);
+ my $kicker_nick = prefix_nick($msg);
+
+ $self->event (kick => $kicked_nick, $chan, $self->_was_me ($msg), $msg->{params}->[2], $kicker_nick);
$self->channel_remove ($msg, $chan, [$kicked_nick]);
$self->event (channel_remove => $msg, $chan, $kicked_nick);
}
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Connection.pm Tue Mar 1 17:01:58 2011
@@ -129,7 +129,9 @@
},
on_read => sub {
my ($hdl) = @_;
- $hdl->push_read (line => sub {
+ # \015* for some broken servers, which might have an extra
+ # carriage return in their MOTD.
+ $hdl->push_read (line => qr{\015*\012}, sub {
$self->_feed_irc_data ($_[1]);
});
},
Modified: trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm?rev=70201&op=diff
==============================================================================
--- trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm (original)
+++ trunk/libanyevent-irc-perl/lib/AnyEvent/IRC/Util.pm Tue Mar 1 17:01:58 2011
@@ -15,7 +15,7 @@
=head1 SYNOPSIS
- use AnyEvent::IRC qw/parse_irc_msg mk_msg/;
+ use AnyEvent::IRC::Util qw/parse_irc_msg mk_msg/;
my $msgdata = mk_msg (undef, PRIVMSG => "mcmanus", "my hands glow!");
@@ -26,7 +26,7 @@
You can export these with eg.:
- use AnyEvent::IRC qw/parse_irc_msg/;
+ use AnyEvent::IRC::Util qw/parse_irc_msg/;
=over 4
@@ -348,8 +348,6 @@
C<$code> is returned if no name for C<$code> exists
(as some server may extended the protocol).
-
-=back
=cut
@@ -535,6 +533,8 @@
@lines
}
+=back
+
=head1 AUTHOR
Robin Redeker, C<< <elmex at ta-sa.org> >>
More information about the Pkg-perl-cvs-commits
mailing list