From 25ff8b3385dcf27028264a93bb7c4ae7235655c7 Mon Sep 17 00:00:00 2001
From: rfm <rfm@72102866-910b-0410-8b05-ffd578937521>
Date: Wed, 7 Apr 2010 14:56:51 +0000
Subject: [PATCH] fix possible descriptor leak

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@30100 72102866-910b-0410-8b05-ffd578937521
---
 ChangeLog             | 1 +
 Source/GSFileHandle.m | 9 ++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2b0dc0e7e..89108f309 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2010-04-07 Richard Frith-Macdonald <rfm@gnu.org>
 
 	* configure.ac: Fix for bug #29291 based on suggestion by Niels Grewe
+	* Source/GSFileHandle.m: Fix possible descriptor leak.
 
 2010-04-06  Wolfgang Lux  <wolfgang.lux@gmail.com>
 
diff --git a/Source/GSFileHandle.m b/Source/GSFileHandle.m
index baa86d577..002b87edb 100644
--- a/Source/GSFileHandle.m
+++ b/Source/GSFileHandle.m
@@ -1077,7 +1077,14 @@ NSString * const GSSOCKSRecvAddr = @"GSSOCKSRecvAddr";
 - (id) initWithFileDescriptor: (int)desc closeOnDealloc: (BOOL)flag
 {
   self = [super init];
-  if (self != nil)
+  if (nil == self)
+    {
+      if (YES == flag)
+	{
+	  close(desc);
+	}
+    }
+  else
     {
       struct stat	sbuf;
       int		e;