From ad63d2426355cd74c4e9229e420f88b40dda59cb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 18 Feb 2014 07:33:54 -0800
Subject: [PATCH] ip-parser: allow zeros in IP addresses.

---
 extra/ip-parser/ip-parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/ip-parser/ip-parser.factor b/extra/ip-parser/ip-parser.factor
index 0bac7067c6..5dc03fae72 100644
--- a/extra/ip-parser/ip-parser.factor
+++ b/extra/ip-parser/ip-parser.factor
@@ -10,7 +10,7 @@ ERROR: invalid-ipv4 str ;
 <PRIVATE
 
 : cleanup-octal ( str -- str )
-    dup { [ "0" head? ] [ "0x" head? not ] } 1&&
+    dup { [ "0" = not ] [ "0" head? ] [ "0x" head? not ] } 1&&
     [ rest "0o" prepend ] when ;
 
 : split-components ( str -- array )