diff options
| -rw-r--r-- | gnu/services/networking.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index 6485c08ff7..59b895d60b 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -234,14 +234,15 @@ fe80::1%lo0 apps.facebook.com\n") (define valid? (lambda (interface) (and (arp-network-interface? interface) - (not (loopback-network-interface? interface))))) + (not (loopback-network-interface? interface)) + ;; XXX: Make sure the interfaces are up so that + ;; 'dhclient' can actually send/receive over them. + ;; Ignore those that cannot be activated. + (false-if-exception + (set-network-interface-up interface))))) (define ifaces (filter valid? (all-network-interface-names))) - ;; XXX: Make sure the interfaces are up so that 'dhclient' can - ;; actually send/receive over them. - (for-each set-network-interface-up ifaces) - (false-if-exception (delete-file #$pid-file)) (let ((pid (fork+exec-command (cons* #$dhclient "-nw" |