apply upstream fixes

lib/tapnet.pm

@@ -56,14 +56,12 @@ sub setup_tap_static {
 }
 
 sub get_host_dns {
-    # get DNS server addresses from the host
+    # get DNS server addresses from the host. Assumes host uses
-    my @forwards;
+    # systemd-resolved and doesn't use IPv6, for now
-    open(FH, '<', "/etc/resolv.conf");
+    my $result = `/usr/bin/resolvectl status | grep Servers | tail -1 | cut -d: -f2-`;
-    while (<FH>) {
+    # FIXME this is gonna break when we have IPv6 DNS servers on the
-        if ($_ =~ m/^nameserver +(.+)/) {
+    # worker hosts
-            push @forwards, $1;
+    my @forwards = split(' ', $result);
-        }
-    }
     return @forwards;
 }