fix mismatching IPv6 numeric address

This commit is contained in:
kevlo 2001-07-15 09:45:35 +00:00
parent 8e2e99f379
commit 60331ebb6e

View File

@ -0,0 +1,11 @@
--- Connection.pm.orig Sun Jul 15 17:38:58 2001
+++ Connection.pm Sun Jul 15 17:39:41 2001
@@ -1101,7 +1101,7 @@
/x) # That ought to do it for now...
{
$line = substr $line, 1 if $line =~ /^:/;
- ($from, $line) = split ":", $line, 2;
+ ($from, $line) = $line =~ m/^(.*):(.*?)$/;
($from, $type, @stuff) = split /\s+/, $from;
$type = lc $type;