From 6609fbb02b6d5f006860011b23f6d1154d0f35c3 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 6 Nov 2005 11:18:57 +0000
Subject: * file.c (rb_file_s_readlink): readlink(2) on AIX fails with ERANGE
 if   buffer size is less than required.  fixed: [ruby-dev:27634]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9505 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 file.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'file.c')

diff --git a/file.c b/file.c
index 2e465e2d89..898c8009aa 100644
--- a/file.c
+++ b/file.c
@@ -2019,7 +2019,13 @@ rb_file_s_readlink(klass, path)
 
     SafeStringValue(path);
     buf = xmalloc(size);
-    while ((rv = readlink(StringValueCStr(path), buf, size)) == size) {
+    for (;;) {
+	rv = readlink(RSTRING(path)->ptr, buf, size);
+#ifndef _AIX
+	if (rv != size) break;
+#else
+	if (rv > 0 || errno != ERANGE) break;
+#endif
 	size *= 2;
 	buf = xrealloc(buf, size);
     }
-- 
cgit v1.2.3