steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove blank lines from resolve.conf just in case

Doug Coleman 2010-10-05 15:33:42 -05:00
parent 6a78644777
commit 7765d6bdcb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/dns/unix/unix.factor
View File

@ -6,8 +6,8 @@ IN: dns.unix
: load-resolve.conf ( -- seq ) : load-resolve.conf ( -- seq )
"/etc/resolv.conf" utf8 file-lines "/etc/resolv.conf" utf8 file-lines
[ [ blank? ] trim ] map [ [ blank? ] trim ] map harvest
[ "#" head? not ] filter [ "#" head? not ] filter
[ [ " " split1 swap ] dip push-at ] sequence>hashtable "nameserver" swap at ; [ [ " " split1 swap ] dip push-at ] sequence>hashtable "nameserver" swap at ;
M: unix initial-dns-servers load-resolve.conf ; M: unix initial-dns-servers load-resolve.conf ;