r70198 - in /branches/upstream/libanyevent-irc-perl/current: Changes MANIFEST META.json META.yml README lib/AnyEvent/IRC.pm lib/AnyEvent/IRC/Client.pm lib/AnyEvent/IRC/Connection.pm lib/AnyEvent/IRC/Util.pm
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Tue Mar 1 16:39:34 UTC 2011
Author: angelabad-guest
Date: Tue Mar 1 16:39:23 2011
New Revision: 70198
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70198
Log:
[svn-upgrade] new version libanyevent-irc-perl (0.96)
Added:
branches/upstream/libanyevent-irc-perl/current/META.json
Modified:
branches/upstream/libanyevent-irc-perl/current/Changes
branches/upstream/libanyevent-irc-perl/current/MANIFEST
branches/upstream/libanyevent-irc-perl/current/META.yml
branches/upstream/libanyevent-irc-perl/current/README
branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC.pm
branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Client.pm
branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Connection.pm
branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Util.pm
Modified: branches/upstream/libanyevent-irc-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/Changes?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/Changes (original)
+++ branches/upstream/libanyevent-irc-perl/current/Changes Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/MANIFEST?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/MANIFEST (original)
+++ branches/upstream/libanyevent-irc-perl/current/MANIFEST Tue Mar 1 16:39:23 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)
Added: branches/upstream/libanyevent-irc-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/META.json?rev=70198&op=file
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/META.json (added)
+++ branches/upstream/libanyevent-irc-perl/current/META.json Tue Mar 1 16:39:23 2011
@@ -1,0 +1,1 @@
+{"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: branches/upstream/libanyevent-irc-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/META.yml?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/META.yml (original)
+++ branches/upstream/libanyevent-irc-perl/current/META.yml Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/README?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/README (original)
+++ branches/upstream/libanyevent-irc-perl/current/README Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC.pm?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC.pm (original)
+++ branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC.pm Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Client.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Client.pm?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Client.pm (original)
+++ branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Client.pm Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Connection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Connection.pm?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Connection.pm (original)
+++ branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Connection.pm Tue Mar 1 16:39:23 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: branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Util.pm?rev=70198&op=diff
==============================================================================
--- branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Util.pm (original)
+++ branches/upstream/libanyevent-irc-perl/current/lib/AnyEvent/IRC/Util.pm Tue Mar 1 16:39:23 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