irc/p5-IRC/files/patch-Connection.pm


1
2
3
4
5
6
7
8
9
10
11

--- Connection.pm.orig	Sun Jul  1 14:50:50 2001
+++ Connection.pm	Tue Nov 27 09:31:39 2001
@@ -1112,7 +1112,7 @@
 		 /x)                      # That ought to do it for now...
 	{
 	    $line = substr $line, 1 if $line =~ /^:/;
-	    ($from, $line) = split ":", $line, 2;
+	    ($from, $line) = $line =~ m/^(\S+\s.*?):(.*)$/;
 	    ($from, $type, @stuff) = split /\s+/, $from;
 	    $type = lc $type;