fix of socket buffering bug.

(Portage version: 2.1.2.12)

4 files changed, 36 insertions, 2 deletions

diff --git a/dev-scheme/gauche/ChangeLog b/dev-scheme/gauche/ChangeLog
index c5273450836c..870aa7aaf611 100644
--- a/dev-scheme/gauche/ChangeLog
+++ b/dev-scheme/gauche/ChangeLog
@@ -1,6 +1,13 @@
 # ChangeLog for dev-scheme/gauche
 # Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.11 2007/08/25 14:51:43 hattya Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/ChangeLog,v 1.12 2007/08/27 15:45:07 hattya Exp $
+
+*gauche-0.8.11-r1 (27 Aug 2007)
+
+  27 Aug 2007; Akinori Hattori <hattya@gentoo.org>
+  +files/gauche-0.8.11-socket-buffering.diff, -gauche-0.8.11.ebuild,
+  +gauche-0.8.11-r1.ebuild:
+  fix of socket buffering bug.
 
 *gauche-0.8.11 (25 Aug 2007)
 
diff --git a/dev-scheme/gauche/files/digest-gauche-0.8.11 b/dev-scheme/gauche/files/digest-gauche-0.8.11-r1
index a61db95705aa..a61db95705aa 100644
--- a/dev-scheme/gauche/files/digest-gauche-0.8.11
+++ b/dev-scheme/gauche/files/digest-gauche-0.8.11-r1
diff --git a/dev-scheme/gauche/files/gauche-0.8.11-socket-buffering.diff b/dev-scheme/gauche/files/gauche-0.8.11-socket-buffering.diff
new file mode 100644
index 000000000000..582774780ce9
--- /dev/null
+++ b/dev-scheme/gauche/files/gauche-0.8.11-socket-buffering.diff
@@ -0,0 +1,26 @@
+Index: ext/net/netlib.stub
+===================================================================
+RCS file: /cvsroot/gauche/Gauche/ext/net/netlib.stub,v
+retrieving revision 1.49
+retrieving revision 1.50
+diff -u -r1.49 -r1.50
+--- ext/net/netlib.stub	10 Aug 2007 01:19:36 -0000	1.49
++++ ext/net/netlib.stub	26 Aug 2007 20:07:43 -0000	1.50
+@@ -176,7 +176,7 @@
+                                  &keyword (buffering #f) (buffered? #f))
+   (body <top>
+         (let* ((bufmode :: int))
+-          (cond ((SCM_FALSEP buffered?) ;for backward compatibility
++          (cond ((not (SCM_FALSEP buffered?)) ;for backward compatibility
+                  (set! bufmode SCM_PORT_BUFFER_FULL))
+                 (else
+                  (set! bufmode (Scm_BufferingMode buffering
+@@ -188,7 +188,7 @@
+                                   &keyword (buffering #f) (buffered? #f))
+   (body <top>
+         (let* ((bufmode :: int))
+-          (cond ((SCM_FALSEP buffered?) ;for backward compatibility
++          (cond ((not (SCM_FALSEP buffered?)) ;for backward compatibility
+                  (set! bufmode SCM_PORT_BUFFER_FULL))
+                 (else
+                  (set! bufmode (Scm_BufferingMode buffering
diff --git a/dev-scheme/gauche/gauche-0.8.11.ebuild b/dev-scheme/gauche/gauche-0.8.11-r1.ebuild
index 484dba214abd..ffa48c68fcd5 100644
--- a/dev-scheme/gauche/gauche-0.8.11.ebuild
+++ b/dev-scheme/gauche/gauche-0.8.11-r1.ebuild
@@ -1,6 +1,6 @@
 # Copyright 1999-2007 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/gauche-0.8.11.ebuild,v 1.1 2007/08/25 14:51:43 hattya Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-scheme/gauche/gauche-0.8.11-r1.ebuild,v 1.1 2007/08/27 15:45:07 hattya Exp $
 
 inherit autotools eutils flag-o-matic
 
@@ -26,6 +26,7 @@ src_unpack() {
 
 	epatch "${FILESDIR}"/${PN}-gauche.m4.diff
 	epatch "${FILESDIR}"/${PN}-runpath.diff
+	epatch "${FILESDIR}"/${P}-socket-buffering.diff
 	eautoconf
 
 }