rpms/perl-Socket-GetAddrInfo/F-12 .cvsignore, 1.2, 1.3 perl-Socket-GetAddrInfo.spec, 1.1, 1.2 sources, 1.2, 1.3
by Nicolas Chauvet
Author: kwizart
Update of /cvs/pkgs/rpms/perl-Socket-GetAddrInfo/F-12
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv5310/F-12
Modified Files:
.cvsignore perl-Socket-GetAddrInfo.spec sources
Log Message:
Update to 0.15
Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Socket-GetAddrInfo/F-12/.cvsignore,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- .cvsignore 27 Jul 2009 09:38:08 -0000 1.2
+++ .cvsignore 21 May 2010 21:54:05 -0000 1.3
@@ -1 +1 @@
-Socket-GetAddrInfo-0.12.tar.gz
+Socket-GetAddrInfo-0.15.tar.gz
Index: perl-Socket-GetAddrInfo.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Socket-GetAddrInfo/F-12/perl-Socket-GetAddrInfo.spec,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- perl-Socket-GetAddrInfo.spec 27 Jul 2009 09:38:08 -0000 1.1
+++ perl-Socket-GetAddrInfo.spec 21 May 2010 21:54:05 -0000 1.2
@@ -1,6 +1,6 @@
Name: perl-Socket-GetAddrInfo
-Version: 0.12
-Release: 1%{?dist}
+Version: 0.15
+Release: 5%{?dist}
Summary: RFC 2553's "getaddrinfo" and "getnameinfo" functions
Group: Development/Libraries
@@ -10,10 +10,12 @@ Source0: http://search.cpan.org/C
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildRequires: perl(ExtUtils::CBuilder)
+BuildRequires: perl(ExtUtils::CChecker)
BuildRequires: perl(Module::Build)
BuildRequires: perl(Module::Build::Compat)
-BuildRequires: perl(Test::More)
BuildRequires: perl(Test::Exception)
+BuildRequires: perl(Test::More)
+BuildRequires: perl(Test::Warn)
Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
%description
@@ -60,5 +62,18 @@ rm -rf $RPM_BUILD_ROOT
%changelog
+* Fri May 07 2010 Nicolas Chauvet <kwizart(a)fedoraproject.org> - 0.15-5
+- Add BR perl(ExtUtils::CChecker)
+- Add BR perl(Test::Warn)
+
+* Thu May 06 2010 Marcela Maslanova <mmaslano(a)redhat.com> - 0.15-2
+- Mass rebuild with perl-5.12.0
+
+* Mon Apr 19 2010 Nicolas Chauvet <kwizart(a)fedoraproject.org> - 0.15-1
+- Update to 0.15
+
+* Mon Dec 7 2009 Stepan Kasal <skasal(a)redhat.com> - 0.12-2
+- rebuild against perl 5.10.1
+
* Thu Jul 9 2009 kwizart < kwizart at gmail.com > - 0.12-1
- Initial spec
Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Socket-GetAddrInfo/F-12/sources,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- sources 27 Jul 2009 09:38:08 -0000 1.2
+++ sources 21 May 2010 21:54:05 -0000 1.3
@@ -1 +1 @@
-ca4db25266037c1cec66218d3732bf91 Socket-GetAddrInfo-0.12.tar.gz
+a2dfcbc44b7e4b24dd0e6ac0996eb4b8 Socket-GetAddrInfo-0.15.tar.gz
13 years, 11 months
rpms/perl-CGI-Application-Plugin-AutoRunmode/devel .cvsignore, 1.2, 1.3 perl-CGI-Application-Plugin-AutoRunmode.spec, 1.4, 1.5 sources, 1.2, 1.3
by Emmanuel Seyman
Author: eseyman
Update of /cvs/pkgs/rpms/perl-CGI-Application-Plugin-AutoRunmode/devel
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv20886
Modified Files:
.cvsignore perl-CGI-Application-Plugin-AutoRunmode.spec
sources
Log Message:
Update to 0.17
Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/perl-CGI-Application-Plugin-AutoRunmode/devel/.cvsignore,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- .cvsignore 21 Jun 2009 08:59:23 -0000 1.2
+++ .cvsignore 21 May 2010 18:54:04 -0000 1.3
@@ -1 +1 @@
-CGI-Application-Plugin-AutoRunmode-0.16.tar.gz
+CGI-Application-Plugin-AutoRunmode-0.17.tar.gz
Index: perl-CGI-Application-Plugin-AutoRunmode.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-CGI-Application-Plugin-AutoRunmode/devel/perl-CGI-Application-Plugin-AutoRunmode.spec,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- perl-CGI-Application-Plugin-AutoRunmode.spec 30 Apr 2010 02:32:25 -0000 1.4
+++ perl-CGI-Application-Plugin-AutoRunmode.spec 21 May 2010 18:54:05 -0000 1.5
@@ -1,6 +1,6 @@
Name: perl-CGI-Application-Plugin-AutoRunmode
-Version: 0.16
-Release: 5%{?dist}
+Version: 0.17
+Release: 1%{?dist}
Summary: CGI::App plugin to automatically register runmodes
License: GPL+ or Artistic
Group: Development/Libraries
@@ -48,6 +48,9 @@ rm -rf $RPM_BUILD_ROOT
%{_mandir}/man3/*
%changelog
+* Fri May 21 2010 Emmanuel Seyman <emmanuel.seyman(a)club-internet.fr> - 0.17-1
+- Update to 0.17.
+
* Fri Apr 30 2010 Marcela Maslanova <mmaslano(a)redhat.com> - 0.16-5
- Mass rebuild with perl-5.12.0
Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/perl-CGI-Application-Plugin-AutoRunmode/devel/sources,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- sources 21 Jun 2009 08:59:23 -0000 1.2
+++ sources 21 May 2010 18:54:05 -0000 1.3
@@ -1 +1 @@
-568792e62b6c0aa931379d23807b77d8 CGI-Application-Plugin-AutoRunmode-0.16.tar.gz
+6046cf1e56e607c2d29ee45ef144eaaa CGI-Application-Plugin-AutoRunmode-0.17.tar.gz
13 years, 11 months
rpms/perl-POE-Component-IRC/F-12 0001-apply-fixes-for-rhbz-591215.patch, NONE, 1.1 perl-POE-Component-IRC.spec, 1.24, 1.25
by Iain Arnell
Author: iarnell
Update of /cvs/pkgs/rpms/perl-POE-Component-IRC/F-12
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv26672
Modified Files:
perl-POE-Component-IRC.spec
Added Files:
0001-apply-fixes-for-rhbz-591215.patch
Log Message:
* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-1.1
- apply patch for rhbz#591215
0001-apply-fixes-for-rhbz-591215.patch:
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 2 +-
3 files changed, 17 insertions(+), 20 deletions(-)
--- NEW FILE 0001-apply-fixes-for-rhbz-591215.patch ---
>From 8fec0161383143419d4cc957e001b0b2fc9fa304 Mon Sep 17 00:00:00 2001
From: Iain Arnell <iarnell(a)gmail.com>
Date: Thu, 20 May 2010 19:22:35 +0200
Subject: [PATCH] apply fixes for rhbz#591215
cherry-picked 4f46c29376359b3d7c5b5cd400115103fdef9ca8
cherry-picked 675f55cd40ceebbc1bd2f309311a066bed41d869
cherry-picked 9e2a01af6a908f9c1c97431bcbc5f483a7a99e2f
---
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 1 +
3 files changed, 17 insertions(+), 19 deletions(-)
diff --git a/lib/POE/Component/IRC.pm b/lib/POE/Component/IRC.pm
index 4fe23da..ecaa50c 100644
--- a/lib/POE/Component/IRC.pm
+++ b/lib/POE/Component/IRC.pm
@@ -1038,9 +1038,7 @@ sub onlytwoargs {
# Handler for privmsg or notice events.
sub privandnotice {
- my ($kernel, $state, $to) = @_[KERNEL, STATE, ARG0];
- my $message = join ' ', @_[ARG1 .. $#_];
- my @messages = split /\n/, $message;
+ my ($kernel, $state, $to, $msg) = @_[KERNEL, STATE, ARG0, ARG1];
my $pri = $_[OBJECT]->{IRC_CMDS}->{$state}->[CMD_PRI];
$state =~ s/privmsglo/privmsg/;
@@ -1048,7 +1046,7 @@ sub privandnotice {
$state =~ s/noticelo/notice/;
$state =~ s/noticehi/notice/;
- if (!defined $to || !defined $message) {
+ if (!defined $to || !defined $msg) {
warn "The '$state' event requires two arguments\n";
return;
}
@@ -1056,9 +1054,7 @@ sub privandnotice {
$to = join ',', @$to if ref $to eq 'ARRAY';
$state = uc $state;
- for my $msg (@messages) {
- $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
- }
+ $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
return;
}
@@ -1214,14 +1210,14 @@ sub sl_prioritized {
my $now = time();
$self->{send_time} = $now if $self->{send_time} < $now;
+
+ # if we find a newline in the message, take that to be the end of it
+ $msg =~ s/[\015\012].*//s;
if (bytes::length($msg) > $self->{msg_length} - bytes::length($self->nick_name())) {
$msg = bytes::substr($msg, 0, $self->{msg_length} - bytes::length($self->nick_name()));
}
- # if we find a newline in the message, take that to be the end of it
- $msg =~ s/\n.*//gm;
-
if (@{ $self->{send_queue} }) {
my $i = @{ $self->{send_queue} };
$i-- while ($i && $priority < $self->{send_queue}->[$i-1]->[MSG_PRI]);
@@ -2188,8 +2184,7 @@ it will be treated as a PART message and dealt with accordingly.
Sends a public or private message to the nick(s) or channel(s) which
you specify. Takes 2 arguments: the nick or channel to send a message
to (use an array reference here to specify multiple recipients), and
-the text of the message to send. If the message contains newlines, it
-will be split up into multiple messages.
+the text of the message to send.
Have a look at the constants in
L<POE::Component::IRC::Common|POE::Component::IRC::Common> if you would
diff --git a/t/02_behavior/14_newline.t b/t/02_behavior/14_newline.t
index efad9f3..e59998d 100644
--- a/t/02_behavior/14_newline.t
+++ b/t/02_behavior/14_newline.t
@@ -3,16 +3,15 @@ use warnings;
use lib 't/inc';
use POE qw(Wheel::SocketFactory);
use Socket;
-use POE::Component::IRC::State;
-use POE::Component::IRC::Plugin::AutoJoin;
+use POE::Component::IRC;
use POE::Component::Server::IRC;
use Test::More tests => 9;
-my $bot1 = POE::Component::IRC::State->spawn(
+my $bot1 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
-my $bot2 = POE::Component::IRC::State->spawn(
+my $bot2 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
@@ -89,7 +88,7 @@ sub irc_join {
my ($sender, $heap, $who, $where) = @_[SENDER, HEAP, ARG0, ARG1];
my $nick = ( split /!/, $who )[0];
my $irc = $sender->get_heap();
-
+
return if $nick ne $irc->nick_name();
is($where, '#testchannel', 'Joined Channel Test');
@@ -98,10 +97,13 @@ sub irc_join {
$irc->yield(quote => "PRIVMSG $where :one\nPRIVMSG $where :two");
$irc->yield(privmsg => $where, "foo\nbar");
+ $irc->yield(privmsg => $where, "baz\rquux");
}
sub irc_public {
- my ($heap, $msg) = @_[HEAP, ARG2];
+ my ($sender, $heap, $where, $msg) = @_[SENDER, HEAP, ARG1, ARG2];
+ my $irc = $sender->get_heap();
+ my $chan = $where->[0];
$heap->{got_msg}++;
if ($heap->{got_msg} == 1) {
@@ -111,7 +113,7 @@ sub irc_public {
is($msg, 'foo', 'Second message');
}
elsif ($heap->{got_msg} == 3) {
- is($msg, 'bar', 'Third message');
+ is($msg, 'baz', 'Third message');
$bot1->yield('quit');
$bot2->yield('quit');
}
diff --git a/xt/perlcriticrc_t b/xt/perlcriticrc_t
index 3bd1ed9..9b1b549 100644
--- a/xt/perlcriticrc_t
+++ b/xt/perlcriticrc_t
@@ -25,3 +25,4 @@ verbose = 3
[-Modules::RequireExplicitPackage]
[-Modules::RequireFilenameMatchesPackage]
[-Subroutines::RequireFinalReturn]
+[-ControlStructures::ProhibitCascadingIfElse]
--
1.7.0.1
Index: perl-POE-Component-IRC.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-POE-Component-IRC/F-12/perl-POE-Component-IRC.spec,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -r1.24 -r1.25
--- perl-POE-Component-IRC.spec 27 Sep 2009 09:03:59 -0000 1.24
+++ perl-POE-Component-IRC.spec 20 May 2010 18:23:53 -0000 1.25
@@ -11,13 +11,15 @@
Name: perl-POE-Component-IRC
Version: 6.14
-Release: 1%{?dist}
+Release: 1%{?dist}.1
Summary: A POE component for building IRC clients
Group: Development/Libraries
License: GPL+ or Artistic
URL: http://search.cpan.org/dist/POE-Component-IRC
Source0: http://search.cpan.org/CPAN/authors/id/H/HI/HINRIK/POE-Component-IRC-%{ve...
+# rhbz#591215
+Patch0: 0001-apply-fixes-for-rhbz-591215.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
@@ -74,6 +76,7 @@ is to it. Cool, no?
%prep
%setup -q -n POE-Component-IRC-%{version}
+%patch0 -p1
# Funky permissions...
%{_fixperms} *
@@ -114,6 +117,9 @@ rm -rf %{buildroot}
%changelog
+* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-1.1
+- apply patch for rhbz#591215
+
* Sun Sep 27 2009 Chris Weyl <cweyl(a)alumni.drew.edu> 6.14-1
- auto-update to 6.14 (by cpan-spec-update 0.01)
- altered br on perl(POE::Component::Pluggable) (1.12 => 1.24)
13 years, 11 months
rpms/perl-POE-Component-IRC/F-13 0001-apply-fixes-for-rhbz-591215.patch, NONE, 1.1 perl-POE-Component-IRC.spec, 1.25, 1.26
by Iain Arnell
Author: iarnell
Update of /cvs/pkgs/rpms/perl-POE-Component-IRC/F-13
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv26184
Modified Files:
perl-POE-Component-IRC.spec
Added Files:
0001-apply-fixes-for-rhbz-591215.patch
Log Message:
* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-2.1
- apply patch for rhbz#591215
0001-apply-fixes-for-rhbz-591215.patch:
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 2 +-
3 files changed, 17 insertions(+), 20 deletions(-)
--- NEW FILE 0001-apply-fixes-for-rhbz-591215.patch ---
>From 8fec0161383143419d4cc957e001b0b2fc9fa304 Mon Sep 17 00:00:00 2001
From: Iain Arnell <iarnell(a)gmail.com>
Date: Thu, 20 May 2010 19:22:35 +0200
Subject: [PATCH] apply fixes for rhbz#591215
cherry-picked 4f46c29376359b3d7c5b5cd400115103fdef9ca8
cherry-picked 675f55cd40ceebbc1bd2f309311a066bed41d869
cherry-picked 9e2a01af6a908f9c1c97431bcbc5f483a7a99e2f
---
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 1 +
3 files changed, 17 insertions(+), 19 deletions(-)
diff --git a/lib/POE/Component/IRC.pm b/lib/POE/Component/IRC.pm
index 4fe23da..ecaa50c 100644
--- a/lib/POE/Component/IRC.pm
+++ b/lib/POE/Component/IRC.pm
@@ -1038,9 +1038,7 @@ sub onlytwoargs {
# Handler for privmsg or notice events.
sub privandnotice {
- my ($kernel, $state, $to) = @_[KERNEL, STATE, ARG0];
- my $message = join ' ', @_[ARG1 .. $#_];
- my @messages = split /\n/, $message;
+ my ($kernel, $state, $to, $msg) = @_[KERNEL, STATE, ARG0, ARG1];
my $pri = $_[OBJECT]->{IRC_CMDS}->{$state}->[CMD_PRI];
$state =~ s/privmsglo/privmsg/;
@@ -1048,7 +1046,7 @@ sub privandnotice {
$state =~ s/noticelo/notice/;
$state =~ s/noticehi/notice/;
- if (!defined $to || !defined $message) {
+ if (!defined $to || !defined $msg) {
warn "The '$state' event requires two arguments\n";
return;
}
@@ -1056,9 +1054,7 @@ sub privandnotice {
$to = join ',', @$to if ref $to eq 'ARRAY';
$state = uc $state;
- for my $msg (@messages) {
- $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
- }
+ $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
return;
}
@@ -1214,14 +1210,14 @@ sub sl_prioritized {
my $now = time();
$self->{send_time} = $now if $self->{send_time} < $now;
+
+ # if we find a newline in the message, take that to be the end of it
+ $msg =~ s/[\015\012].*//s;
if (bytes::length($msg) > $self->{msg_length} - bytes::length($self->nick_name())) {
$msg = bytes::substr($msg, 0, $self->{msg_length} - bytes::length($self->nick_name()));
}
- # if we find a newline in the message, take that to be the end of it
- $msg =~ s/\n.*//gm;
-
if (@{ $self->{send_queue} }) {
my $i = @{ $self->{send_queue} };
$i-- while ($i && $priority < $self->{send_queue}->[$i-1]->[MSG_PRI]);
@@ -2188,8 +2184,7 @@ it will be treated as a PART message and dealt with accordingly.
Sends a public or private message to the nick(s) or channel(s) which
you specify. Takes 2 arguments: the nick or channel to send a message
to (use an array reference here to specify multiple recipients), and
-the text of the message to send. If the message contains newlines, it
-will be split up into multiple messages.
+the text of the message to send.
Have a look at the constants in
L<POE::Component::IRC::Common|POE::Component::IRC::Common> if you would
diff --git a/t/02_behavior/14_newline.t b/t/02_behavior/14_newline.t
index efad9f3..e59998d 100644
--- a/t/02_behavior/14_newline.t
+++ b/t/02_behavior/14_newline.t
@@ -3,16 +3,15 @@ use warnings;
use lib 't/inc';
use POE qw(Wheel::SocketFactory);
use Socket;
-use POE::Component::IRC::State;
-use POE::Component::IRC::Plugin::AutoJoin;
+use POE::Component::IRC;
use POE::Component::Server::IRC;
use Test::More tests => 9;
-my $bot1 = POE::Component::IRC::State->spawn(
+my $bot1 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
-my $bot2 = POE::Component::IRC::State->spawn(
+my $bot2 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
@@ -89,7 +88,7 @@ sub irc_join {
my ($sender, $heap, $who, $where) = @_[SENDER, HEAP, ARG0, ARG1];
my $nick = ( split /!/, $who )[0];
my $irc = $sender->get_heap();
-
+
return if $nick ne $irc->nick_name();
is($where, '#testchannel', 'Joined Channel Test');
@@ -98,10 +97,13 @@ sub irc_join {
$irc->yield(quote => "PRIVMSG $where :one\nPRIVMSG $where :two");
$irc->yield(privmsg => $where, "foo\nbar");
+ $irc->yield(privmsg => $where, "baz\rquux");
}
sub irc_public {
- my ($heap, $msg) = @_[HEAP, ARG2];
+ my ($sender, $heap, $where, $msg) = @_[SENDER, HEAP, ARG1, ARG2];
+ my $irc = $sender->get_heap();
+ my $chan = $where->[0];
$heap->{got_msg}++;
if ($heap->{got_msg} == 1) {
@@ -111,7 +113,7 @@ sub irc_public {
is($msg, 'foo', 'Second message');
}
elsif ($heap->{got_msg} == 3) {
- is($msg, 'bar', 'Third message');
+ is($msg, 'baz', 'Third message');
$bot1->yield('quit');
$bot2->yield('quit');
}
diff --git a/xt/perlcriticrc_t b/xt/perlcriticrc_t
index 3bd1ed9..9b1b549 100644
--- a/xt/perlcriticrc_t
+++ b/xt/perlcriticrc_t
@@ -25,3 +25,4 @@ verbose = 3
[-Modules::RequireExplicitPackage]
[-Modules::RequireFilenameMatchesPackage]
[-Subroutines::RequireFinalReturn]
+[-ControlStructures::ProhibitCascadingIfElse]
--
1.7.0.1
Index: perl-POE-Component-IRC.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-POE-Component-IRC/F-13/perl-POE-Component-IRC.spec,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -p -r1.25 -r1.26
--- perl-POE-Component-IRC.spec 7 Dec 2009 08:56:16 -0000 1.25
+++ perl-POE-Component-IRC.spec 20 May 2010 18:19:24 -0000 1.26
@@ -11,13 +11,15 @@
Name: perl-POE-Component-IRC
Version: 6.14
-Release: 2%{?dist}
+Release: 2%{?dist}.1
Summary: A POE component for building IRC clients
Group: Development/Libraries
License: GPL+ or Artistic
URL: http://search.cpan.org/dist/POE-Component-IRC
Source0: http://search.cpan.org/CPAN/authors/id/H/HI/HINRIK/POE-Component-IRC-%{ve...
+# rhbz#591215
+Patch0: 0001-apply-fixes-for-rhbz-591215.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
@@ -74,6 +76,7 @@ is to it. Cool, no?
%prep
%setup -q -n POE-Component-IRC-%{version}
+%patch0 -p1
# Funky permissions...
%{_fixperms} *
@@ -114,6 +117,9 @@ rm -rf %{buildroot}
%changelog
+* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-2.1
+- apply patch for rhbz#591215
+
* Mon Dec 7 2009 Stepan Kasal <skasal(a)redhat.com> - 6.14-2
- rebuild against perl 5.10.1
13 years, 11 months
rpms/perl-POE-Component-IRC/devel 0001-apply-fixes-for-rhbz-591215.patch, NONE, 1.1 perl-POE-Component-IRC.spec, 1.26, 1.27
by Iain Arnell
Author: iarnell
Update of /cvs/pkgs/rpms/perl-POE-Component-IRC/devel
In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv25889
Modified Files:
perl-POE-Component-IRC.spec
Added Files:
0001-apply-fixes-for-rhbz-591215.patch
Log Message:
* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-4
- apply patch for rhbz#591215
0001-apply-fixes-for-rhbz-591215.patch:
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 2 +-
3 files changed, 17 insertions(+), 20 deletions(-)
--- NEW FILE 0001-apply-fixes-for-rhbz-591215.patch ---
>From 8fec0161383143419d4cc957e001b0b2fc9fa304 Mon Sep 17 00:00:00 2001
From: Iain Arnell <iarnell(a)gmail.com>
Date: Thu, 20 May 2010 19:22:35 +0200
Subject: [PATCH] apply fixes for rhbz#591215
cherry-picked 4f46c29376359b3d7c5b5cd400115103fdef9ca8
cherry-picked 675f55cd40ceebbc1bd2f309311a066bed41d869
cherry-picked 9e2a01af6a908f9c1c97431bcbc5f483a7a99e2f
---
lib/POE/Component/IRC.pm | 19 +++++++------------
t/02_behavior/14_newline.t | 16 +++++++++-------
xt/perlcriticrc_t | 1 +
3 files changed, 17 insertions(+), 19 deletions(-)
diff --git a/lib/POE/Component/IRC.pm b/lib/POE/Component/IRC.pm
index 4fe23da..ecaa50c 100644
--- a/lib/POE/Component/IRC.pm
+++ b/lib/POE/Component/IRC.pm
@@ -1038,9 +1038,7 @@ sub onlytwoargs {
# Handler for privmsg or notice events.
sub privandnotice {
- my ($kernel, $state, $to) = @_[KERNEL, STATE, ARG0];
- my $message = join ' ', @_[ARG1 .. $#_];
- my @messages = split /\n/, $message;
+ my ($kernel, $state, $to, $msg) = @_[KERNEL, STATE, ARG0, ARG1];
my $pri = $_[OBJECT]->{IRC_CMDS}->{$state}->[CMD_PRI];
$state =~ s/privmsglo/privmsg/;
@@ -1048,7 +1046,7 @@ sub privandnotice {
$state =~ s/noticelo/notice/;
$state =~ s/noticehi/notice/;
- if (!defined $to || !defined $message) {
+ if (!defined $to || !defined $msg) {
warn "The '$state' event requires two arguments\n";
return;
}
@@ -1056,9 +1054,7 @@ sub privandnotice {
$to = join ',', @$to if ref $to eq 'ARRAY';
$state = uc $state;
- for my $msg (@messages) {
- $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
- }
+ $kernel->yield(sl_prioritized => $pri, "$state $to :$msg");
return;
}
@@ -1214,14 +1210,14 @@ sub sl_prioritized {
my $now = time();
$self->{send_time} = $now if $self->{send_time} < $now;
+
+ # if we find a newline in the message, take that to be the end of it
+ $msg =~ s/[\015\012].*//s;
if (bytes::length($msg) > $self->{msg_length} - bytes::length($self->nick_name())) {
$msg = bytes::substr($msg, 0, $self->{msg_length} - bytes::length($self->nick_name()));
}
- # if we find a newline in the message, take that to be the end of it
- $msg =~ s/\n.*//gm;
-
if (@{ $self->{send_queue} }) {
my $i = @{ $self->{send_queue} };
$i-- while ($i && $priority < $self->{send_queue}->[$i-1]->[MSG_PRI]);
@@ -2188,8 +2184,7 @@ it will be treated as a PART message and dealt with accordingly.
Sends a public or private message to the nick(s) or channel(s) which
you specify. Takes 2 arguments: the nick or channel to send a message
to (use an array reference here to specify multiple recipients), and
-the text of the message to send. If the message contains newlines, it
-will be split up into multiple messages.
+the text of the message to send.
Have a look at the constants in
L<POE::Component::IRC::Common|POE::Component::IRC::Common> if you would
diff --git a/t/02_behavior/14_newline.t b/t/02_behavior/14_newline.t
index efad9f3..e59998d 100644
--- a/t/02_behavior/14_newline.t
+++ b/t/02_behavior/14_newline.t
@@ -3,16 +3,15 @@ use warnings;
use lib 't/inc';
use POE qw(Wheel::SocketFactory);
use Socket;
-use POE::Component::IRC::State;
-use POE::Component::IRC::Plugin::AutoJoin;
+use POE::Component::IRC;
use POE::Component::Server::IRC;
use Test::More tests => 9;
-my $bot1 = POE::Component::IRC::State->spawn(
+my $bot1 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
-my $bot2 = POE::Component::IRC::State->spawn(
+my $bot2 = POE::Component::IRC->spawn(
Flood => 1,
plugin_debug => 1,
);
@@ -89,7 +88,7 @@ sub irc_join {
my ($sender, $heap, $who, $where) = @_[SENDER, HEAP, ARG0, ARG1];
my $nick = ( split /!/, $who )[0];
my $irc = $sender->get_heap();
-
+
return if $nick ne $irc->nick_name();
is($where, '#testchannel', 'Joined Channel Test');
@@ -98,10 +97,13 @@ sub irc_join {
$irc->yield(quote => "PRIVMSG $where :one\nPRIVMSG $where :two");
$irc->yield(privmsg => $where, "foo\nbar");
+ $irc->yield(privmsg => $where, "baz\rquux");
}
sub irc_public {
- my ($heap, $msg) = @_[HEAP, ARG2];
+ my ($sender, $heap, $where, $msg) = @_[SENDER, HEAP, ARG1, ARG2];
+ my $irc = $sender->get_heap();
+ my $chan = $where->[0];
$heap->{got_msg}++;
if ($heap->{got_msg} == 1) {
@@ -111,7 +113,7 @@ sub irc_public {
is($msg, 'foo', 'Second message');
}
elsif ($heap->{got_msg} == 3) {
- is($msg, 'bar', 'Third message');
+ is($msg, 'baz', 'Third message');
$bot1->yield('quit');
$bot2->yield('quit');
}
diff --git a/xt/perlcriticrc_t b/xt/perlcriticrc_t
index 3bd1ed9..9b1b549 100644
--- a/xt/perlcriticrc_t
+++ b/xt/perlcriticrc_t
@@ -25,3 +25,4 @@ verbose = 3
[-Modules::RequireExplicitPackage]
[-Modules::RequireFilenameMatchesPackage]
[-Subroutines::RequireFinalReturn]
+[-ControlStructures::ProhibitCascadingIfElse]
--
1.7.0.1
Index: perl-POE-Component-IRC.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-POE-Component-IRC/devel/perl-POE-Component-IRC.spec,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- perl-POE-Component-IRC.spec 6 May 2010 07:26:53 -0000 1.26
+++ perl-POE-Component-IRC.spec 20 May 2010 18:16:00 -0000 1.27
@@ -11,13 +11,15 @@
Name: perl-POE-Component-IRC
Version: 6.14
-Release: 3%{?dist}
+Release: 4%{?dist}
Summary: A POE component for building IRC clients
Group: Development/Libraries
License: GPL+ or Artistic
URL: http://search.cpan.org/dist/POE-Component-IRC
Source0: http://search.cpan.org/CPAN/authors/id/H/HI/HINRIK/POE-Component-IRC-%{ve...
+# rhbz#591215
+Patch0: 0001-apply-fixes-for-rhbz-591215.patch
BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch: noarch
@@ -74,6 +76,7 @@ is to it. Cool, no?
%prep
%setup -q -n POE-Component-IRC-%{version}
+%patch0 -p1
# Funky permissions...
%{_fixperms} *
@@ -114,6 +117,9 @@ rm -rf %{buildroot}
%changelog
+* Thu May 20 2010 Iain Arnell <iarnell(a)gmail.com> 6.14-4
+- apply patch for rhbz#591215
+
* Thu May 06 2010 Marcela Maslanova <mmaslano(a)redhat.com> - 6.14-3
- Mass rebuild with perl-5.12.0
13 years, 11 months