1 files changed, 12 insertions, 33 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 422c96069..ca73bfb65 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -395,41 +395,20 @@ usb_probe()
 unsigned int
 getpagesize()
 
-void
-getNetInterfaces()
-  PPCODE:
-    struct ifconf ifc;
-    struct ifreq *ifr;
-    int fd, n;
-    
-    if ((fd = socket (PF_INET, SOCK_DGRAM, 0)) == -1) {
-         perror("getNetInterfaces() >> creating socket");
-         XSRETURN_EMPTY;
-    }
-
-    // SIOCGIFCOUNT is unimplemented, let\'s call SIOCGIFCONF(0) to get number of interfaces
-    ifc.ifc_len = 0; ifc.ifc_buf = NULL; ifc.ifc_req = NULL;
-    if (ioctl (fd, SIOCGIFCONF, &ifc) == -1) {
-         perror("getNetInterfaces() >> SIOCGIFCONF(0)");
-         XSRETURN_EMPTY;
-    }
-
-    // allocate enough space
-    n = ifc.ifc_len / sizeof (struct ifreq);
-    New (0xbad, ifr, ifc.ifc_len, struct ifreq);
-
-    // Get the network interfaces list
-    ifc.ifc_req = ifr;
-    if (ioctl (fd, SIOCGIFCONF, &ifc) == -1) {
-         perror("getNetInterfaces() >> SIOCGIFCONF()");
-         XSRETURN_EMPTY;
-    }
+int
+hasNetDevice(device)
+  char * device
+  CODE:
+    struct ifreq req;
+    int s = socket(AF_INET, SOCK_DGRAM, 0);
+    if (s == -1) { RETVAL = 0; return; }
 
-    EXTEND(SP, n);
-    for (; n; --n, ++ifr)
-         PUSHs(sv_2mortal(newSVpv(ifr->ifr_name, 0)));
-    Safefree (ifc.ifc_req);
+    strcpy(req.ifr_name, device);
 
+    RETVAL = ioctl(s, SIOCGIFFLAGS, &req) == 0;
+    close(s);
+  OUTPUT:
+  RETVAL
 
 int
 addDefaultRoute(gateway)