diff options
Diffstat (limited to 'saxrobot')
| -rwxr-xr-x | saxrobot | 7 | 
1 files changed, 4 insertions, 3 deletions
@@ -104,9 +104,10 @@ sub irc_msg {  	if ($what =~ /^part\s/) {  		my $message;  		if ($what =~ /^part(\s+(\S+))+$/m) { -			my @args = split /\s+/, $what; -			print for @args; -			$irc->yield(part => @args); +			$what =~ s/^part\s+//; +			my ($chan_str, $reason) = split /\s+(?!#)/, $what, 2; +			my @channels = split /\s+/, $chan_str; +			$irc->yield(part => @channels => $reason);  		} else {  			$irc->yield(privmsg => $nick => "Syntax: part [partmsg]");  		}  | 
