blob: cf570df0ed386b202529fb2f6ebd3b78847b3d64 (
plain)
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)"
|
