r19554 - in /trunk/libpoe-component-irc-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/POE/Component/ lib/POE/Component/IRC/ lib/POE/Component/IRC/Plugin/
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue May 6 16:46:09 UTC 2008
Author: tincho-guest
Date: Tue May 6 16:46:08 2008
New Revision: 19554
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19554
Log:
FIXME: tons of lintian warnings, and perl warnings during testing.
* New upstream release.
* debian/control: updating my mail address.
Added:
trunk/libpoe-component-irc-perl/LICENSE
- copied unchanged from r19400, branches/upstream/libpoe-component-irc-perl/current/LICENSE
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/Makefile.PL
trunk/libpoe-component-irc-perl/debian/changelog
trunk/libpoe-component-irc-perl/debian/control
trunk/libpoe-component-irc-perl/inc/Module/Install.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm
trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/Logger.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/Plugin/PlugMan.pm
trunk/libpoe-component-irc-perl/lib/POE/Component/IRC/State.pm
Modified: trunk/libpoe-component-irc-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Changes?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Changes (original)
+++ trunk/libpoe-component-irc-perl/Changes Tue May 6 16:46:08 2008
@@ -1,6 +1,15 @@
Revision history for Perl extension POE::Component::IRC.
-5.74
+5.76
+ - Logger.pm: Fixed serious typo in function name. Grr. (Hinrik)
+ - Logger.pm: Handle PARTs correctly when there's no colon (Hinrik)
+ - State.pm: Only WHO users once even if they join many chans (Hinrik)
+ - State.pm: Added channel_creation_time() method (Hinrik)
+ - State.pm: Made channel_modes() return mode arguments as well (Hinrik)
+ - State.pm: Add is_channel_synced() (Hinrik)
+ - PlugMan.pm - bug in new() spotted by plu (bingos)
+
+5.74 Thu Apr 03 15:14:04 GMT 2008
- Logger.pm: Do charset conversion on everything, not just messages. This
should handle non-ASCII channel names and nicknames on servers that
support such things (Hinrik)
Modified: trunk/libpoe-component-irc-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/MANIFEST?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/MANIFEST (original)
+++ trunk/libpoe-component-irc-perl/MANIFEST Tue May 6 16:46:08 2008
@@ -1,4 +1,5 @@
Changes
+LICENSE
docs/ctcpspec.html
docs/dccspec.html
docs/isupport-draft.txt
Modified: trunk/libpoe-component-irc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/META.yml?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/META.yml (original)
+++ trunk/libpoe-component-irc-perl/META.yml Tue May 6 16:46:08 2008
@@ -5,7 +5,7 @@
build_requires:
Test::More: 0.47
distribution_type: module
-generated_by: 'Module::Install version 0.71'
+generated_by: 'Module::Install version 0.72'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -34,4 +34,4 @@
Socket: 0
perl: 5.6.0
tests: 't/*.t t/*/*.t xt/*.t'
-version: 5.74
+version: 5.76
Modified: trunk/libpoe-component-irc-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/Makefile.PL?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/Makefile.PL (original)
+++ trunk/libpoe-component-irc-perl/Makefile.PL Tue May 6 16:46:08 2008
@@ -1,3 +1,4 @@
+use 5.006;
use strict;
use inc::Module::Install;
Modified: trunk/libpoe-component-irc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/changelog?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/changelog (original)
+++ trunk/libpoe-component-irc-perl/debian/changelog Tue May 6 16:46:08 2008
@@ -1,3 +1,11 @@
+libpoe-component-irc-perl (5.76+dfsg-1) UNRELEASED; urgency=low
+
+ FIXME: tons of lintian warnings, and perl warnings during testing.
+ * New upstream release.
+ * debian/control: updating my mail address.
+
+ -- MartÃn Ferrari <tincho at debian.org> Sun, 04 May 2008 19:15:28 -0300
+
libpoe-component-irc-perl (5.74+dfsg-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libpoe-component-irc-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/debian/control?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/debian/control (original)
+++ trunk/libpoe-component-irc-perl/debian/control Tue May 6 16:46:08 2008
@@ -6,7 +6,7 @@
libpoe-component-client-dns-perl, libpoe-component-client-ident-perl, netbase,
libtest-pod-perl, libtest-pod-coverage-perl, libsocket6-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: MartÃn Ferrari <martin.ferrari at gmail.com>
+Uploaders: MartÃn Ferrari <tincho at debian.org>
Standards-Version: 3.7.3
Homepage: http://search.cpan.org/dist/POE-Component-IRC/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpoe-component-irc-perl/
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install.pm Tue May 6 16:46:08 2008
@@ -30,7 +30,11 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.71';
+ $VERSION = '0.72';
+
+ *inc::Module::Install::VERSION = *VERSION;
+ @inc::Module::Install::ISA = __PACKAGE__;
+
}
@@ -95,13 +99,19 @@
+# To save some more typing in Module::Install installers, every...
+# use inc::Module::Install
+# ...also acts as an implicit use strict.
+$^H |= strict::bits(qw(refs subs vars));
+
+
+
+
+
use Cwd ();
use File::Find ();
use File::Path ();
use FindBin;
-
-*inc::Module::Install::VERSION = *VERSION;
- at inc::Module::Install::ISA = __PACKAGE__;
sub autoload {
my $self = shift;
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Base.pm Tue May 6 16:46:08 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.71';
+$VERSION = '0.72';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Can.pm Tue May 6 16:46:08 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Fetch.pm Tue May 6 16:46:08 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Makefile.pm Tue May 6 16:46:08 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Metadata.pm Tue May 6 16:46:08 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -271,7 +271,7 @@
my $self = shift;
if (
Module::Install::_read($_[0]) =~ m/
- ^ \s
+ ^ \s*
package \s*
([\w:]+)
\s* ;
@@ -368,4 +368,19 @@
return 'unknown';
}
+sub install_script {
+ my $self = shift;
+ my $args = $self->makemaker_args;
+ my $exe = $args->{EXE_FILES} ||= [];
+ foreach ( @_ ) {
+ if ( -f $_ ) {
+ push @$exe, $_;
+ } elsif ( -d 'script' and -f "script/$_" ) {
+ push @$exe, "script/$_";
+ } else {
+ die "Cannot find script '$_'";
+ }
+ }
+}
+
1;
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/Win32.pm Tue May 6 16:46:08 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm?rev=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libpoe-component-irc-perl/inc/Module/Install/WriteAll.pm Tue May 6 16:46:08 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.71';
+ $VERSION = '0.72';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
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=19554&op=diff
==============================================================================
--- trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm (original)
+++ trunk/libpoe-component-irc-perl/lib/POE/Component/IRC.pm Tue May 6 16:46:08 2008
@@ -29,8 +29,8 @@
use Socket;
use vars qw($VERSION $REVISION $GOT_SSL $GOT_CLIENT_DNS $GOT_SOCKET6);
-$VERSION = '5.74';
-$REVISION = do {my at r=(q$Revision: 577 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
+$VERSION = '5.76';
+$REVISION = do {my at r=(q$Revision: 591 $=~/\d+/g);sprintf"%d"."%04d"x$#r, at r};
BEGIN {
eval {
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=19554&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 Tue May 6 16:46:08 2008
@@ -13,7 +13,7 @@
use POSIX qw(strftime);
use vars qw($VERSION);
-$VERSION = '1.7';
+$VERSION = '1.8';
sub new {
my ($package, %self) = @_;
@@ -235,7 +235,7 @@
my ($self, $irc) = splice @_, 0, 2;
my ($parter, $user, $host) = parse_user(${ $_[0] });
my $chan = ${ $_[1] };
- my $msg = ${ $_[2] };
+ my $msg = defined $_[2] ? ${ $_[2] } : '';
$self->_log_entry($chan, part => $parter, "$user\@$host", $chan, $msg);
return PCI_EAT_NONE;
}
@@ -306,7 +306,7 @@
}
my $line = "$time " . $self->{Format}->{$type}->(@args);
$line = "$date $line" if !$self->{Sort_by_date};
- print $log_file normalize($line) . "\n";
+ print $log_file $self->_normalize($line) . "\n";
return;
}
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=19554&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 Tue May 6 16:46:08 2008
@@ -5,6 +5,9 @@
use Carp;
use POE::Component::IRC::Plugin qw( :ALL );
use POE::Component::IRC::Common qw( :ALL );
+use vars qw($VERSION);
+
+$VERSION = '5.76';
BEGIN {
# Turn on the debugger's symbol source tracing
@@ -17,7 +20,7 @@
}
sub new {
- my ($package, %args) = shift;
+ my ($package, %args) = @_;
$args{ lc $_ } = delete $args{ $_ } for keys %args;
return bless \%args, $package;
}
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=19554&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 Tue May 6 16:46:08 2008
@@ -17,7 +17,7 @@
use base qw(POE::Component::IRC);
use vars qw($VERSION);
-$VERSION = '2.51';
+$VERSION = '2.52';
# Event handlers for tracking the STATE. $self->{STATE} is used as our namespace.
# u_irc() is used to create unique keys.
@@ -75,28 +75,29 @@
$self->yield(who => $channel );
$self->yield(mode => $channel );
$self->yield(mode => $channel => 'b');
+
if ($self->{awaypoll}) {
$poe_kernel->state(_away_sync => $self);
$poe_kernel->delay_add(_away_sync => $self->{awaypoll} => $channel);
}
-
}
else {
- if ( !exists $self->{whojoiners} || $self->{whojoiners} ) {
- $self->yield ( 'who' => $nick );
+ if ( (!exists $self->{whojoiners} || $self->{whojoiners})
+ && !exists $self->{STATE}->{Nicks}->{ $unick }->{Real}) {
+ $self->yield(who => $nick);
+ push @{ $self->{NICK_SYNCH}->{ $unick } }, $channel;
}
else {
- # Fake 'irc_nick_sync
+ # Fake 'irc_nick_sync'
$self->_send_event(irc_nick_sync => $nick, $channel);
}
-
- $self->{STATE}->{Nicks}->{ $unick }->{Nick} = $nick;
- $self->{STATE}->{Nicks}->{ $unick }->{User} = $user;
- $self->{STATE}->{Nicks}->{ $unick }->{Host} = $host;
- $self->{STATE}->{Nicks}->{ $unick }->{CHANS}->{ $uchan } = '';
- $self->{STATE}->{Chans}->{ $uchan }->{Nicks}->{ $unick } = '';
- push @{ $self->{NICK_SYNCH}->{ $unick } }, $channel;
- }
+ }
+
+ $self->{STATE}->{Nicks}->{ $unick }->{Nick} = $nick;
+ $self->{STATE}->{Nicks}->{ $unick }->{User} = $user;
+ $self->{STATE}->{Nicks}->{ $unick }->{Host} = $host;
+ $self->{STATE}->{Nicks}->{ $unick }->{CHANS}->{ $uchan } = '';
+ $self->{STATE}->{Chans}->{ $uchan }->{Nicks}->{ $unick } = '';
return PCI_EAT_NONE;
}
@@ -253,10 +254,10 @@
# RPL_UMODEIS
sub S_221 {
- my ($self,$irc) = splice @_, 0, 2;
+ my ($self, $irc) = splice @_, 0, 2;
my $mode = ${ $_[1] };
$mode =~ s/^\+//;
- ($self->{STATE}->{usermode} = $mode ) =~ s/^\+//;
+ $self->{STATE}->{usermode} = $mode;
return PCI_EAT_NONE;
}
@@ -473,6 +474,18 @@
return PCI_EAT_NONE;
}
+# RPL_CREATIONTIME
+sub S_329 {
+ my ($self, $irc) = splice @_, 0, 2;
+ my $mapping = $irc->isupport('CASEMAPPING');
+ my $channel = ${ $_[2] }->[0];
+ my $time = ${ $_[2] }->[1];
+ my $uchan = u_irc $channel, $mapping;
+
+ $self->{STATE}->{Chans}->{ $uchan }->{CreationTime} = $time;
+ return PCI_EAT_NONE;
+}
+
# RPL_BANLIST
sub S_367 {
my ($self, $irc) = splice @_, 0, 2;
@@ -835,6 +848,22 @@
return;
}
+sub is_channel_synced {
+ my ($self, $channel) = @_;
+ return $self->_channel_sync($channel);
+}
+
+sub channel_creation_time {
+ my ($self, $channel) = @_;
+ my $mapping = $self->isupport('CASEMAPPING');
+ my $uchan = u_irc $channel, $mapping;
+
+ return if !$self->_channel_exists($channel);
+ return if !exists $self->{STATE}->{Chans}->{ $uchan }->{CreationTime};
+
+ return $self->{STATE}->{Chans}->{ $uchan }->{CreationTime};
+}
+
sub channel_limit {
my ($self, $channel) = @_;
my $mapping = $self->isupport('CASEMAPPING');
@@ -870,11 +899,16 @@
my $uchan = u_irc $channel, $mapping;
return if !$self->_channel_exists($channel);
+ my %modes;
if ( defined $self->{STATE}->{Chans}->{ $uchan }->{Mode} ) {
- return $self->{STATE}->{Chans}->{ $uchan }->{Mode};
- }
-
- return;
+ %modes = map { ($_ => '') } split(//, $self->{STATE}->{Chans}->{ $uchan }->{Mode});
+ }
+ if ( defined $self->{STATE}->{Chans}->{ $uchan }->{ModeArgs} ) {
+ my %args = %{ $self->{STATE}->{Chans}->{ $uchan }->{ModeArgs} };
+ @modes{keys %args} = values %args;
+ }
+
+ return \%modes;
}
sub is_channel_member {
@@ -1196,9 +1230,15 @@
Expects a channel and a single mode flag [A-Za-z]. Returns a true value
if that mode is set on the channel.
+=item C<channel_creation_time>
+
+Expects a channel as parameter. Returns channel creation time or a false value.
+
=item C<channel_modes>
-Expects a channel as parameter. Returns channel modes or a false value.
+Expects a channel as parameter. Returns a hash ref keyed on channel mode, with
+the mode argument (if any) as the value. Returns a false value instead if the
+channel is not in the state.
=item C<channel_limit>
@@ -1238,6 +1278,11 @@
the nick is a half-operator on the specified channel. Returns false if the nick
is not a half-operator on the channel or if the nick/channel does not exist in
the state.
+
+=item C<is_channel_synced>
+
+Expects a channel as a parameter. Returns true if the channel has been synced.
+Returns false if it has not been synced or if the channel is not in the state.
=item C<has_channel_voice>
More information about the Pkg-perl-cvs-commits
mailing list