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