dev-scheme/gauche/files/gauche-rfc.tls.patch


1
2
3
4
5
6
7
8
9
10

--- a/ext/tls/ssltest-mod.scm
+++ b/ext/tls/ssltest-mod.scm
@@ -87,6 +87,7 @@
         #/\.\.\/ssl\// srcpath-replace
         #/openssl /    kicker-replace
         #/system\s*\(/      "safe_system("
+        #/(s_server) / "\\1 -4 "
         )))
 
   (p "#include <errno.h>"