Package: irssi-scripts
Version: 20050609
Severity: normal
Tags: patch

irssi-scripts includes autorejoin.pl, which is meant to autorejoin only
those channels the user specifies. I quote from the script itself:

    # /SET autorejoin_channels #channel1 #channel2 ...

However, this does not work --- although the channel names are meant to
be space-separated, the script is written to assume that they are
separated by " ,", which would be a fairly stupid delimiter. :-)

This trivial patch fixes the typo and hence the bug:

diff --unified old/autorejoin.pl new/autorejoin.pl
--- old/autorejoin.pl   2005-11-22 12:04:36.055786440 +0000
+++ new/autorejoin.pl   2005-11-22 12:04:41.396974456 +0000
@@ -39,7 +39,7 @@
   return if ($server->{nick} ne $nick);
 
   # check if we want to autorejoin this channel
-  my @chans = split(/ ,/, Irssi::settings_get_str('autorejoin_channels'));
+  my @chans = split(/ +/, Irssi::settings_get_str('autorejoin_channels'));
   foreach my $chan (@chans) {
     if (lc($chan) eq lc($channel)) {
       channel_rejoin($server, $channel);

wjt

-- System Information:
Debian Release: testing/unstable
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.14-1-686
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)

Versions of packages irssi-scripts depends on:
ii  irssi-text                    0.8.9-3.1  text-mode version of the irssi IRC

Versions of packages irssi-scripts recommends:
ii  libwww-perl                   5.803-4    WWW client/server library for Perl

-- no debconf information


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Reply via email to