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