blob: 1e5ef71b6c917410a752e005506e73a119ed4f51 (
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/ "safe_system")))
+ #/system/ "safe_system"
+ #/(s_server) / "\\1 -4 ")))
(p "#include <errno.h>"
"int safe_system(const char *commands)"
|