Still a problem with TOPIC command. Fixed.

bingos · Dec 29, 2006 · 39bca4a · 39bca4a
1 parent 85db932
commit 39bca4a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/Changes b/Changes
@@ -1,7 +1,8 @@
 Revision history for Perl extension POE::Component::IRC.
 
-5.18  DATE
+5.18  Fri Dec 29 10:55:05 GMT 2006
     - Documentation fix to ::Plugin by Kinks.
+    - Still a problem with TOPIC command. Fixed.
 
 5.17  Tue Dec 12 22:52:48 GMT 2006
     - Serious bug in TOPIC handling spotted. Fixed.

diff --git a/lib/POE/Component/IRC.pm b/lib/POE/Component/IRC.pm
@@ -1631,11 +1631,9 @@ sub spacesep {
 
 # Set or query the current topic on a channel.
 sub topic {
-  my ($kernel, $chan) = @_[KERNEL, ARG0];
+  my ($kernel,$chan,@args) = @_[KERNEL,ARG0,ARG1..$#_];
   my $topic; 
-  if ( scalar @_[ARG1 .. $#_] ) {
-	$topic = join '', @_[ARG1 .. $#_];
-  }
+  $topic = join '', @args if scalar @args;
 
   if ( defined $topic ) {
      $chan .= " :";