# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1368909677 -3600
# Node ID 0200945313c981117f67241add45c6dfc1fed8f3
# Parent  eee23fb79a5e605ef56b790300cdce2e8a6d8da2
util.ip: Fix protocol detection of IPv6 addresses beginning with :

diff -r eee23fb79a5e -r 0200945313c9 util/ip.lua
--- a/util/ip.lua	Sat May 18 21:40:40 2013 +0100
+++ b/util/ip.lua	Sat May 18 21:41:17 2013 +0100
@@ -14,8 +14,10 @@
 local function new_ip(ipStr, proto)
 	if not proto then
 		local sep = ipStr:match("^%x+(.)");
-		if sep == ":" then proto = "IPv6"
-		elseif sep == "." then proto = "IPv4"
+		if sep == ":" or (not(sep) and ipStr:sub(1,1) == ":") then
+			proto = "IPv6"
+		elseif sep == "." then
+			proto = "IPv4"
 		end
 		if not proto then
 			return nil, "invalid address";