r31567 - in /trunk/libpoe-component-irc-perl: ./ debian/ lib/POE/Component/ lib/POE/Component/IRC/ lib/POE/Component/IRC/Plugin/ lib/POE/Component/IRC/Qnet/ lib/POE/Filter/ lib/POE/Filter/IRC/ t/02_behavior/ t/04_plugins/01_ctcp/ t/04_plugins/01_plugman/ t/04_plugins/06_ctcp/ t/04_plugins/06_plugman/ t/04_plugins/12_autojoin/ t/04_plugins/13_botcommand/ t/04_plugins/14_logger/ xt/

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Fri Mar 6 19:28:20 UTC 2009


Author: gregoa
Date: Fri Mar  6 19:28:16 2009
New Revision: 31567

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31567
Log:
New upstream release.

Added:
    trunk/libpoe-component-irc-perl/t/04_plugins/01_ctcp/
      - copied from r31566, branches/upstream/libpoe-component-irc-perl/current/t/04_plugins/01_ctcp/
    trunk/libpoe-component-irc-perl/t/04_plugins/06_plugman/
      - copied from r31566, branches/upstream/libpoe-component-irc-perl/current/t/04_plugins/06_plugman/
    trunk/libpoe-component-irc-perl/xt/perl_critic_t.t
      - copied unchanged from r31566, branches/upstream/libpoe-component-irc-perl/current/xt/perl_critic_t.t
    trunk/libpoe-component-irc-perl/xt/perlcriticrc_t
      - copied unchanged from r31566, branches/upstream/libpoe-component-irc-perl/current/xt/perlcriticrc_t
Removed:
    trunk/libpoe-component-irc-perl/t/04_plugins/01_plugman/
    trunk/libpoe-component-irc-perl/t/04_plugins/06_ctcp/
Modified:
    trunk/libpoe-component-irc-perl/Changes
    trunk/libpoe-component-irc-perl/MANIFEST
    trunk/libpoe-component-irc-perl/META.yml
    trunk/libpoe-component-irc-perl/debian/changelog
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm
    trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm
    trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm
    trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm
    trunk/libpoe-component-irc-perl/t/02_behavior/06_online.t
    trunk/libpoe-component-irc-perl/t/02_behavior/13_activity.t
    trunk/libpoe-component-irc-perl/t/04_plugins/12_autojoin/02_join.t
    trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/02_commands.t
    trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/03_options.t
    trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/02_public.t
    trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/04_dcc_chat.t
    trunk/libpoe-component-irc-perl/xt/perl_critic.t

Modified: trunk/libpoe-component-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Changes?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Changes (original)
+++ trunk/libpoe-component-irc-perl/Changes Fri Mar  6 19:28:16 2009
@@ -1,4 +1,12 @@
 Revision history for Perl extension POE::Component::IRC.
+
+6.02 Fri Mar  6 10:54:22 GMT 2009
+    - Fix RT #43856, variable name typo in PlugMan.pm reported by barnaclebob
+    - Add new test for PlugMan plugin (Hinrik)
+    - Amend a few tests that were failing (Hinrik)
+    - State.pm: Avoid a warning when setting a mode on a channel on which all
+      previous modes have been unset (Hinrik)
+    - Add optional Perl::Critic test for the test scripts (Hinrik)
 
 6.00 Wed Mar  4 23:12:57 GMT 2009
     - Logger.pm: Fix bug with logging some CTCP ACTIONs (Hinrik)

Modified: trunk/libpoe-component-irc-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/MANIFEST?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/MANIFEST (original)
+++ trunk/libpoe-component-irc-perl/MANIFEST Fri Mar  6 19:28:16 2009
@@ -86,8 +86,8 @@
 t/03_subclasses/01_state.t
 t/03_subclasses/02_qnet.t
 t/03_subclasses/03_qnet_state.t
-t/04_plugins/01_plugman/01_load.t
-t/04_plugins/01_plugman/02_add.t
+t/04_plugins/01_ctcp/01_load.t
+t/04_plugins/01_ctcp/02_replies.t
 t/04_plugins/02_connector/01_load.t
 t/04_plugins/02_connector/02_reconnect.t
 t/04_plugins/03_botaddressed/01_load.t
@@ -96,8 +96,9 @@
 t/04_plugins/04_bottraffic/02_output.t
 t/04_plugins/05_isupport/01_load.t
 t/04_plugins/05_isupport/02_isupport.t
-t/04_plugins/06_ctcp/01_load.t
-t/04_plugins/06_ctcp/02_replies.t
+t/04_plugins/06_plugman/01_load.t
+t/04_plugins/06_plugman/02_add.t
+t/04_plugins/06_plugman/03_irc_interface.t
 t/04_plugins/07_console/01_load.t
 t/04_plugins/08_proxy/01_load.t
 t/04_plugins/09_nickreclaim/01_load.t
@@ -138,6 +139,8 @@
 t/inc/POE/Component/Server/IRC/Pipeline.pm
 t/inc/POE/Component/Server/IRC/Plugin.pm
 xt/perl_critic.t
+xt/perl_critic_t.t
 xt/perlcriticrc
+xt/perlcriticrc_t
 xt/pod.t
 xt/pod_coverage.t

Modified: trunk/libpoe-component-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/META.yml?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/META.yml (original)
+++ trunk/libpoe-component-irc-perl/META.yml Fri Mar  6 19:28:16 2009
@@ -31,4 +31,4 @@
   perl: 5.6.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 6.00
+version: 6.02

Modified: trunk/libpoe-component-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/changelog?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/changelog (original)
+++ trunk/libpoe-component-irc-perl/debian/changelog Fri Mar  6 19:28:16 2009
@@ -1,3 +1,9 @@
+libpoe-component-irc-perl (6.02+dfsg-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Fri, 06 Mar 2009 20:27:17 +0100
+
 libpoe-component-irc-perl (6.00+dfsg-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm Fri Mar  6 19:28:16 2009
@@ -16,8 +16,8 @@
 use Socket;
 use base qw(POE::Component::Pluggable);
 
-our $VERSION = '6.00';
-our $REVISION = do {my at r=(q$Revision: 850 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
+our $VERSION = '6.02';
+our $REVISION = do {my at r=(q$Revision: 865 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
 our ($GOT_SSL, $GOT_CLIENT_DNS, $GOT_SOCKET6, $GOT_ZLIB);
 
 BEGIN {

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Common.pm Fri Mar  6 19:28:16 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 require Exporter;
 use base qw(Exporter);

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Constants.pm Fri Mar  6 19:28:16 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 require Exporter;
 use base qw(Exporter);

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin.pm Fri Mar  6 19:28:16 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 require Exporter;
 use base qw(Exporter);

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/AutoJoin.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POE::Component::IRC::Common qw( parse_user );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotAddressed.pm Fri Mar  6 19:28:16 2009
@@ -5,7 +5,7 @@
 use Carp;
 use POE::Component::IRC::Plugin qw( :ALL );
 
-our $VERSION = 6.00;
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotCommand.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Common qw( parse_user );
 use POE::Component::IRC::Plugin qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/BotTraffic.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Filter::IRCD;
 use POE::Filter::IRC::Compat;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = @_;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CTCP.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POSIX qw(strftime);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Connector.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE;
 use POE::Component::IRC::Plugin qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Console.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE qw(Wheel::SocketFactory Wheel::ReadWrite Filter::IRCD Filter::Line Filter::Stackable);
 use POE::Component::IRC::Plugin qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my $package = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/CycleEmpty.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POE::Component::IRC::Common qw( parse_user u_irc );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/DCC.pm Fri Mar  6 19:28:16 2009
@@ -9,7 +9,7 @@
 use POE::Component::IRC::Plugin qw(:ALL);
 use Socket;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 use constant {
     OUT_BLOCKSIZE  => 1024,   # Send DCC data in 1k chunks

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/FollowTail.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE qw(Wheel::FollowTail);
 use POE::Component::IRC::Plugin qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/ISupport.pm Fri Mar  6 19:28:16 2009
@@ -4,7 +4,7 @@
 use warnings;
 use POE::Component::IRC::Plugin qw(:ALL);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     return bless { }, shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm Fri Mar  6 19:28:16 2009
@@ -12,7 +12,7 @@
 use POE::Component::IRC::Common qw( l_irc parse_user strip_color strip_formatting );
 use POSIX qw(strftime);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickReclaim.pm Fri Mar  6 19:28:16 2009
@@ -5,7 +5,7 @@
 use Carp;
 use POE::Component::IRC::Plugin qw(:ALL);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/NickServID.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POE::Component::IRC::Common qw( u_irc );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POE::Component::IRC::Common qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 BEGIN { 
     # Turn on the debugger's symbol source tracing
@@ -97,7 +97,7 @@
     my $cmd = uc (shift @cmd);
     
     if (defined $self->{commands}->{$cmd}) {
-        $self->{command}->{$cmd}->($self, 'privmsg', $channel, @cmd);
+        $self->{commands}->{$cmd}->($self, 'privmsg', $channel, @cmd);
     }
     
     return PCI_EAT_NONE;
@@ -114,7 +114,7 @@
     return PCI_EAT_NONE if !$self->_bot_owner($nick);
     
     if (defined $self->{commands}->{$cmd}) {
-        $self->{command}->{$cmd}->($self, 'notice', $nick, @cmd);
+        $self->{commands}->{$cmd}->($self, 'notice', $nick, @cmd);
     }
 
     return PCI_EAT_NONE;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Proxy.pm Fri Mar  6 19:28:16 2009
@@ -9,7 +9,7 @@
 use POE::Component::IRC::Plugin qw( :ALL );
 use POE::Component::IRC::Common qw( :ALL );
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package) = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Whois.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin qw( PCI_EAT_NONE );
 use POE::Component::IRC::Common qw(:ALL);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     return bless { }, shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet.pm Fri Mar  6 19:28:16 2009
@@ -16,7 +16,7 @@
 use POE::Component::IRC::Constants qw(:ALL);
 use base qw(POE::Component::IRC);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub _create {
     my $self = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Qnet/State.pm Fri Mar  6 19:28:16 2009
@@ -17,7 +17,7 @@
 use POE::Component::IRC::Plugin qw(:ALL);
 use base qw(POE::Component::IRC::State POE::Component::IRC::Qnet);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub _create {
     my $self = shift;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm Fri Mar  6 19:28:16 2009
@@ -16,7 +16,7 @@
 use POE::Component::IRC::Plugin qw(:ALL);
 use base qw(POE::Component::IRC);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 # Event handlers for tracking the STATE. $self->{STATE} is used as our namespace.
 # u_irc() is used to create unique keys.
@@ -348,9 +348,6 @@
         if ( $self->{STATE}->{Chans}->{ $uchan }->{Mode} ) {
             $self->{STATE}->{Chans}->{ $uchan }->{Mode} = join('', sort {uc $a cmp uc $b} ( split( //, $self->{STATE}->{Chans}->{ $uchan }->{Mode} ) ) );
         }
-        else {
-            delete $self->{STATE}->{Chans}->{ $uchan }->{Mode};
-        }
     }
     else {
         my $parsed_mode = parse_mode_line( @modes );

Modified: trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC.pm Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Filter::IRCD;
 use POE::Filter::IRC::Compat;
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 sub new {
     my ($package, %opts) = @_;

Modified: trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Filter/IRC/Compat.pm Fri Mar  6 19:28:16 2009
@@ -7,7 +7,7 @@
 use File::Basename qw(fileparse);
 use base qw(POE::Filter);
 
-our $VERSION = '6.00';
+our $VERSION = '6.02';
 
 my %irc_cmds = (
     qr/^\d{3}$/ => sub {

Modified: trunk/libpoe-component-irc-perl/t/02_behavior/06_online.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/02_behavior/06_online.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/02_behavior/06_online.t (original)
+++ trunk/libpoe-component-irc-perl/t/02_behavior/06_online.t Fri Mar  6 19:28:16 2009
@@ -1,3 +1,5 @@
+use strict;
+use warnings;
 use POE qw(Wheel::SocketFactory);
 use POE::Component::IRC;
 use Socket;

Modified: trunk/libpoe-component-irc-perl/t/02_behavior/13_activity.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/02_behavior/13_activity.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/02_behavior/13_activity.t (original)
+++ trunk/libpoe-component-irc-perl/t/02_behavior/13_activity.t Fri Mar  6 19:28:16 2009
@@ -5,7 +5,7 @@
 use POE::Component::Server::IRC;
 use POE qw(Wheel::SocketFactory);
 use Socket;
-use Test::More tests => 15;
+use Test::More tests => 16;
 
 my $bot1 = POE::Component::IRC->spawn(Flood => 1);
 my $bot2 = POE::Component::IRC->spawn(Flood => 1);
@@ -72,12 +72,12 @@
     });
   
     $bot2->yield(register => 'all');
-    $bot2->delay([connect => {
+    $bot2->yield(connect => {
         nick    => 'TestBot2',
         server  => '127.0.0.1',
         port    => $port,
         ircname => 'Test test bot',
-    }], 2 );
+    });
 }
 
 sub irc_001 {
@@ -99,7 +99,10 @@
         is($where, '#testchannel', 'Joined Channel Test');
 
         if ($irc == $bot1) {
-            $irc->yield(invite => $bot2->nick_name(), $where);
+            $bot1->yield(invite => $bot2->nick_name(), $where);
+        }
+        else {
+            $bot1->yield(mode => $where, '+m');
         }
     }
 }
@@ -116,7 +119,7 @@
     return if $irc != $bot1;
 
     if ($mode =~ /\+[nt]/) {
-        $bot1->yield(mode => $where, '+m');
+        pass('Got initial channel modes');
     }
     else {
         is($mode, '+m', 'irc_mode');
@@ -173,7 +176,7 @@
     return if $irc != $bot2;
 
     is($reason, 'Good bye', 'irc_kick');
-    $bot1->yield(privmsg => $bot2->nick_name(), 'Test message 3');
+    $bot1->yield(privmsg => $bot2->nick_name(), 'Test message 4');
 }
 
 sub irc_msg {
@@ -181,7 +184,7 @@
     my $irc = $sender->get_heap();
     return if $irc != $bot2;
 
-    is($msg, 'Test message 3', 'irc_msg');
+    is($msg, 'Test message 4', 'irc_msg');
     $bot1->yield('quit');
     $bot2->yield('quit');
 }

Modified: trunk/libpoe-component-irc-perl/t/04_plugins/12_autojoin/02_join.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/12_autojoin/02_join.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/12_autojoin/02_join.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/12_autojoin/02_join.t Fri Mar  6 19:28:16 2009
@@ -8,7 +8,7 @@
 use Socket;
 use Test::More tests => 4;
 
-my $irc = POE::Component::IRC::State->spawn(
+my $bot = POE::Component::IRC::State->spawn(
     Flood        => 1,
     plugin_debug => 1,
 );
@@ -17,7 +17,7 @@
     Auth      => 0,
     AntiFlood => 0,
 );
-$irc->plugin_add(AutoJoin => POE::Component::IRC::Plugin::AutoJoin->new(
+$bot->plugin_add(AutoJoin => POE::Component::IRC::Plugin::AutoJoin->new(
     Channels => ['#chan1', '#chan2'],
 ));
 
@@ -61,8 +61,8 @@
     
     $kernel->post( 'ircd' => 'add_listener' => Port => $port);
     
-    $irc->yield(register => 'all');
-    $irc->yield(connect => {
+    $bot->yield(register => 'all');
+    $bot->yield(connect => {
         nick    => 'TestBot1',
         server  => '127.0.0.1',
         port    => $port,
@@ -98,6 +98,6 @@
     my ($kernel) = $_[KERNEL];
     $kernel->alarm_remove_all();
     $kernel->post(ircd => 'shutdown');
-    $irc->yield('shutdown');
+    $bot->yield('shutdown');
 }
 

Modified: trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/02_commands.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/02_commands.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/02_commands.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/02_commands.t Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin::BotCommand;
 use POE::Component::Server::IRC;
 use Socket;
-use Test::More tests => 19;
+use Test::More tests => 18;
 
 my $bot1 = POE::Component::IRC->spawn(
     Flood        => 1,
@@ -117,6 +117,7 @@
     my $nick = (split /!/, $who)[0];
     my $irc = $sender->get_heap();
 
+    return if $nick ne $irc->nick_name();
     pass('Joined channel');
     return if $irc != $bot2;
 

Modified: trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/03_options.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/03_options.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/03_options.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/13_botcommand/03_options.t Fri Mar  6 19:28:16 2009
@@ -6,7 +6,7 @@
 use POE::Component::IRC::Plugin::BotCommand;
 use POE::Component::Server::IRC;
 use Socket;
-use Test::More tests => 19;
+use Test::More tests => 18;
 
 my $bot1 = POE::Component::IRC->spawn(
     Flood        => 1,
@@ -135,6 +135,7 @@
     my $nick = (split /!/, $who)[0];
     my $irc = $sender->get_heap();
 
+    return if $nick ne $irc->nick_name();
     pass('Joined channel');
     return if $irc != $bot2;
 

Modified: trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/02_public.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/02_public.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/02_public.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/02_public.t Fri Mar  6 19:28:16 2009
@@ -101,7 +101,6 @@
 sub _config_ircd {
     my ($kernel, $port) = @_[KERNEL, ARG0];
     
-    $ircd->yield('add_i_line');
     $ircd->yield(add_listener => Port => $port);
     
     $bot1->yield(register => 'all');
@@ -126,7 +125,10 @@
     my $irc = $_[SENDER]->get_heap();
     
     pass($irc->nick_name() . ' logged in');
-    $irc->yield(join => '#testchannel');
+    $heap->{logged_in}++;
+    if ($heap->{logged_in} == 2) {
+        $bot1->yield(join => '#testchannel');
+    }
 }
 
 sub irc_join {
@@ -137,12 +139,19 @@
     return if $nick ne $irc->nick_name();
     pass("$nick joined channel");
 
+    $heap->{joined}++;
+    if ($heap->{joined} == 1) {
+        $bot2->yield(join => $where);
+        return;
+    }
+
     if ($heap->{done}) {
         $bot1->yield('quit');
         return;
     }
 
     if ($irc == $bot2) {
+        $bot1->yield(privmsg => $where, 'Oh hi');
         $bot1->yield(mode => $where, '-t');
         $bot1->yield(mode => $where, '+s');
         $bot1->yield(mode => $where, '+m');
@@ -155,14 +164,11 @@
         $bot1->yield(mode => $where, '+o TestBot2');
 
         $bot1->yield(topic => $where, 'Testing, 1 2 3');
-        $bot1->yield(privmsg => $where, 'Oh hi');
         $bot1->yield(notice => $where, 'Hello');
         $bot1->yield(nick => 'NewNick');
         $bot1->yield(part => $where);
-
-        $heap->{bulk} = 1;
-    }
-    elsif ($irc == $bot1 && $heap->{bulk}) {
+    }
+    else {
         $bot2->yield(kick => $where, $bot1->nick_name(), 'Bye bye');
     }
 }

Modified: trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/04_dcc_chat.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/04_dcc_chat.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/04_dcc_chat.t (original)
+++ trunk/libpoe-component-irc-perl/t/04_plugins/14_logger/04_dcc_chat.t Fri Mar  6 19:28:16 2009
@@ -88,7 +88,6 @@
 sub _config_ircd {
     my ($kernel, $port) = @_[KERNEL, ARG0];
     
-    $ircd->yield('add_i_line');
     $ircd->yield(add_listener => Port => $port);
     
     $bot1->yield(register => 'all');

Modified: trunk/libpoe-component-irc-perl/xt/perl_critic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/xt/perl_critic.t?rev=31567&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/xt/perl_critic.t (original)
+++ trunk/libpoe-component-irc-perl/xt/perl_critic.t Fri Mar  6 19:28:16 2009
@@ -15,6 +15,10 @@
     my $msg = 'Test::Perl::Critic required to criticise code';
     plan( skip_all => $msg );
 }
+elsif ($Perl::Critic::VERSION lt 1.097) {
+    my $msg = 'Perl::Critic >= 1.097 required to criticise code';
+    plan( skip_all => $msg );
+}
 
 my $rcfile = File::Spec->catfile( 'xt', 'perlcriticrc' );
 Test::Perl::Critic->import( -profile => $rcfile );




More information about the Pkg-perl-cvs-commits mailing list