From 4bdf9a6c61bdbd3ff9402e7dd5626648532bd8d6 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 1 May 2003 00:00:37 +0000
Subject: * regex.c (re_match_exec): $ _always_ matches at the end of string.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3739 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 file.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'file.c')

diff --git a/file.c b/file.c
index 079d8cc631..ca677ef1f2 100644
--- a/file.c
+++ b/file.c
@@ -2045,6 +2045,7 @@ rb_file_flock(obj, operation)
     if (fptr->mode & FMODE_WRITABLE) {
 	fflush(GetWriteFile(fptr));
     }
+  retry:
     TRAP_BEG;
     ret = flock(fileno(fptr->f), NUM2INT(operation));
     TRAP_END;
@@ -2056,6 +2057,11 @@ rb_file_flock(obj, operation)
           case EWOULDBLOCK:
 #endif
               return Qfalse;
+	  case EINTR:
+#if defined(ERESTART)
+	  case ERESTART:
+#endif
+	    goto retry;
         }
 	rb_sys_fail(fptr->path);
     }
-- 
cgit v1.2.3