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


1
2
3
4
5
6
7
8
9
10
11
12

--- a/ext/tls/ssltest-mod.scm
+++ b/ext/tls/ssltest-mod.scm
@@ -53,7 +53,8 @@
      ($ format #t "~a\n" $ regexp-replace-all* line
         #/\.\.\/ssl\// srcpath-replace
         #/openssl /    kicker-replace
-        #/system\s*\(/      "safe_system(")))
+        #/system\s*\(/ "safe_system("
+        #/(s_server) / "\\1 -4 ")))
 
   (p "#include <errno.h>"
      "int safe_system(const char *commands)"