diff options
Diffstat (limited to 'otherlibs/unix/symlink.c')
| -rw-r--r-- | otherlibs/unix/symlink.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/unix/symlink.c b/otherlibs/unix/symlink.c index 41ba02019..d1dbf37c5 100644 --- a/otherlibs/unix/symlink.c +++ b/otherlibs/unix/symlink.c @@ -25,8 +25,8 @@ CAMLprim value unix_symlink(value path1, value path2) char * p1; char * p2; int ret; - p1 = caml_stat_alloc_string(path1); - p2 = caml_stat_alloc_string(path2); + p1 = caml_strdup(String_val(path1)); + p2 = caml_strdup(String_val(path2)); caml_enter_blocking_section(); ret = symlink(p1, p2); caml_leave_blocking_section(); |