From 2f3f4b39a067f7d64d1f2ebb2c01e1e50a20433d Mon Sep 17 00:00:00 2001
From: ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 22 Jun 2004 15:21:03 +0000
Subject: * ext/win32ole/win32ole.c (ole_hresult2msg): remove trailing   CR and
 LF. (doesn't depend on CR+LF) [ruby-dev:23694]

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6498 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/win32ole/win32ole.c | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'ext')

diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
index f856cd251..0e9c53f01 100644
--- a/ext/win32ole/win32ole.c
+++ b/ext/win32ole/win32ole.c
@@ -501,9 +501,12 @@ ole_hresult2msg(hr)
                             NULL, hr, LOCALE_SYSTEM_DEFAULT,
                             (LPTSTR)&p_msg, 0, NULL);
     if (dwCount > 0) {
-	term = strrchr(p_msg, '\r');
-	if (term) {
-	    *term = '\0';
+	term = p_msg + strlen(p_msg);
+	while (p_msg < term) {
+	    term--;
+	    if (*term == '\r' || *term == '\n')
+	        *term = '\0';
+	    else break;
 	}
         if (p_msg[0] != '\0') {
             rb_str_cat2(msg, p_msg);
-- 
cgit