use regexp
svn: r4930 original commit: c6a0983954452d412b201217aa6344d9a0387e69
This commit is contained in:
parent
b8e831a397
commit
3585f88ec0
|
@ -336,7 +336,7 @@
|
|||
(let ([l (read-line)])
|
||||
(or (and (string? l)
|
||||
(let ([m (regexp-match
|
||||
(format "nameserver[ ~a]+([0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)" #\tab)
|
||||
#rx"nameserver[ \t]+([0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)"
|
||||
l)])
|
||||
(and m (cadr m))))
|
||||
(and (not (eof-object? l))
|
||||
|
|
Loading…
Reference in New Issue
Block a user