1 diff -Naur Net-IRC-0.63/Connection.pm Net-IRC-0.63-p/Connection.pm
2 --- Net-IRC-0.63/Connection.pm Mon Jan 31 03:00:23 2000
3 +++ Net-IRC-0.63-p/Connection.pm Thu Aug 3 17:14:34 2000
5 /x) # That ought to do it for now...
7 $line = substr $line, 1 if $line =~ /^:/;
8 - ($from, $line) = split ":", $line, 2;
9 + ($from, $line) = split " :", $line, 2;
10 ($from, $type, @stuff) = split /\s+/, $from;