* file.c (rb_file_s_readlink): ERANGE will occur only on GPFS.

[ruby-dev:27699]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9537 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

file.c

@@ -2009,13 +2009,11 @@ rb_file_s_readlink(VALUE klass, VALUE path)
     rb_secure(2);
     FilePathValue(path);
     buf = xmalloc(size);
-    for (;;) {
-	rv = readlink(RSTRING(path)->ptr, buf, size);
-#ifndef _AIX
-	if (rv != size) break;
-#else
-	if (rv > 0 || errno != ERANGE) break;
+    while ((rv = readlink(RSTRING(path)->ptr, buf, size)) == size
+#ifdef _AIX
+	    || (rv < 0 && errno == ERANGE) /* quirky behavior of GPFS */
 #endif
+	) {
 	size *= 2;
 	buf = xrealloc(buf, size);
     }