Changeset 18414

Timestamp:

08/29/08 08:11:42 (4 months ago)

Author:

tokuhirom

Message:

POE::Component::IRC 5.88 was released.
remove hacking code around bugs in PoCo::IRC 5.86.

Location:

lang/perl/mobirc/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/App/Mobirc/Plugin/Component/IRCClient.pm (modified) (1 diff)

lang/perl/mobirc/trunk/Makefile.PL

@@ -15 +15 @@
 requires 'POE'                         => '1.003';
 requires 'POE::Sugar::Args'            => '1.3';
-requires 'POE::Component::IRC'         => '5.86'; # THIS VERSION HAS BUG! http://rt.cpan.org/Ticket/Display.html?id=38773
+requires 'POE::Component::IRC'         => '5.88';
 
 # mobile stuff

lang/perl/mobirc/trunk/lib/App/Mobirc/Plugin/Component/IRCClient.pm

@@ -5 +5 @@
 use POE;
 use POE::Sugar::Args;
-use POE::Component::IRC;
+use POE::Component::IRC 5.88;
 use POE::Filter::IRC::Compat;
-
-{
-    # HACK HACK HACK
-    # POE::Filter::IRC::Compat->get_one returns undef when invalid CTCP request.
-    # POE::Filter::Stackable dies when get the undef!
-    # see also http://rt.cpan.org/Ticket/Display.html?id=38773
-    my $meta = Class::MOP::Class->initialize('POE::Filter::IRC::Compat') or die "cannot get meta class of the POE::Filter::IRC::Compat";
-    $meta->add_around_method_modifier('get_one', sub {
-        my ($next, @args) = @_;
-        my $result = $next->(@args);
-        $result ? $result : [];
-    });
-    $meta->make_immutable;
-}
 
 use Encode;