X-Git-Url: https://git.distorted.org.uk/~mdw/zoneconf/blobdiff_plain/e4ce9d1ee876952c2c339a84ad658caff954a95e..7de7888a156f3558297545a97d8fe6c418230daf:/zoneconf.in

diff --git a/zoneconf.in b/zoneconf.in
index 4a6713f..edf1184 100755
--- a/zoneconf.in
+++ b/zoneconf.in
@@ -1152,8 +1152,12 @@ proc compute-zone-properties {view config} {
 	foreach host $hosts {
 	  set bang [string first "!" $host]
 	  if {$bang >= 0} {
-	    set before [string range $host 0 [expr {$bang - 1}]]
 	    set after [string range $host [expr {$bang + 1}] end]
+	    if {$bang} {
+	      set before [string range $host 0 [expr {$bang - 1}]]
+	    } else {
+	      set before $after
+	    }
 	    if {[local-address-p $before]} {
 	      set host $after
 	    } else {