summaryrefslogtreecommitdiffstats
path: root/perl-install/c
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-06-25 15:16:56 +0000
committerOlivier Blin <oblin@mandriva.com>2008-06-25 15:16:56 +0000
commit2f0f10d8298369d0762ad6071c29df62314bfe68 (patch)
tree782113a9cee47eb6936f14c3415fe6f44284c5e7 /perl-install/c
parentc25a783758028e140d6646ea3237ba2885fb8b6b (diff)
downloaddrakx-2f0f10d8298369d0762ad6071c29df62314bfe68.tar
drakx-2f0f10d8298369d0762ad6071c29df62314bfe68.tar.gz
drakx-2f0f10d8298369d0762ad6071c29df62314bfe68.tar.bz2
drakx-2f0f10d8298369d0762ad6071c29df62314bfe68.tar.xz
drakx-2f0f10d8298369d0762ad6071c29df62314bfe68.zip
fix minor fd leak (backport from trunk)
Diffstat (limited to 'perl-install/c')
-rw-r--r--perl-install/c/stuff.xs.pl1
1 files changed, 1 insertions, 0 deletions
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) {