blob: 110bf1e7008072f11e9306bd7a9349895b3bdd2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
commit ab9588774461715d0664b8662790b36e8389307d
Author: Tomas Korbar <tkorbar@redhat.com>
Date: Thu Jul 22 10:26:24 2021 +0200
Make chroot call more secure
diff --git a/libguile/posix.c b/libguile/posix.c
index 31c4ab1..1054440 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -2033,7 +2033,10 @@ SCM_DEFINE (scm_chroot, "chroot", 1, 0, 0,
#define FUNC_NAME s_scm_chroot
{
int rv;
-
+ WITH_STRING (path, c_path,
+ rv = chdir (c_path));
+ if (rv == -1)
+ SCM_SYSERROR;
WITH_STRING (path, c_path,
rv = chroot (c_path));
if (rv == -1)
|
