in reply to IPv6 support
#remove this code from /usr/lib/perl5/site_perl/5.005/Net/IRC/Connecti +on.pm: # this is line 1103 in version 1.3 (1999/08/12) # --SNIPP-- # REPLACE THIS: # $line = substr $line, 1 if $line =~ /^:/; # ($from, $line) = split ":", $line, 2; # ($from, $type, @stuff) = split /\s+/, $from; # WITH: ($from, $type, $line) = $line =~ /^:?(\S+)\s+(\S+).+?:(.+)$/; # --SNAPP--
|
---|