- if { $dn == "$DOMAIN." } { return @ }
- return [join [lrange [split $dn .] 0 end-[expr [llength [split $DOMAIN .]] + 1]] .]
+ if {$dn == "$DOMAIN."} { return @ }
+ set domainLen [llength [split $DOMAIN .]]
+ return [join [lrange [split $dn .] 0 end-[expr $domainLen + 1]] .]