From 7c5855744286a1bee6d9ff0de5457a3403fa13c7 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 18 Apr 2008 16:53:25 +0000 Subject: fix minor fd leak --- perl-install/c/stuff.xs.pl | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/c') diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 4b8ca36f4..3058d4b66 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -354,6 +354,7 @@ get_netdevices() if (ioctl(s, SIOCGIFCONF, &ifc) < 0) { perror("SIOCGIFCONF"); + close(s); return; } if (ifc.ifc_len == sizeof(struct ifreq) * numreqs) { -- cgit v1.2.1