# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1085083784 0
# Node ID a88d4463d233e2c25054ab92ab59b9a7c5303427
# Parent  d6fea11c62d7c1a7a65eedd06738ba572c762cfb
[gaim-migrate @ 9764]
Patch from datallah for crlf losers who want to use tcl

committer: Tailor Script <tailor@pidgin.im>

diff -r d6fea11c62d7 -r a88d4463d233 plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Thu May 20 18:14:18 2004 +0000
+++ b/plugins/tcl/tcl.c	Thu May 20 20:09:44 2004 +0000
@@ -169,13 +169,22 @@
 	len = st.st_size;
 
 	buf = g_malloc(len + 1);
-	if ((fread(buf, len, 1, fp)) != 1) {
+	
+	cur = buf;	
+	while (fgets(cur, (int) buf - (buf - cur), fp)) {
+		cur += strlen(cur);
+		if (feof(fp)) 
+			break;
+	}
+
+	if (ferror(fp)) {
+		gaim_debug(GAIM_DEBUG_ERROR, "tcl", "error reading %s (%s)\n", plugin->path, strerror(errno));
 		g_free(buf);
 		fclose(fp);
 		return FALSE;
 	}
+
 	fclose(fp);
-	buf[len] = '\0';
 
 	if ((interp = tcl_create_interp()) == NULL) {
 		return FALSE;