Ticket #1634: 0001-Keep-file-permissions-in-copy-file-and-move-file.patch

File 0001-Keep-file-permissions-in-copy-file-and-move-file.patch, 917 bytes (added by alicemaz, 6 years ago)

  • file.scm 

    From 0fc5fa976195e6028cfa8449ffefc06d1ccb0f7d Mon Sep 17 00:00:00 2001
From: alice maz <alice@alicemaz.com>
Date: Mon, 15 Jul 2019 00:56:26 -0500
Subject: [PATCH] Keep file permissions in copy-file and move-file

---
 file.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/file.scm b/file.scm
index 34fa3b99..3469bd1a 100644
    a b EOF 
    175175(import scheme
    176176        chicken.base
    177177        chicken.condition
     178        chicken.file.posix
    178179        chicken.fixnum
    179180        chicken.foreign
    180181        chicken.io
    … … EOF 
    344345               (l 0))
    345346      (if (fx= 0 d)
    346347          (begin
     348            (set-file-permissions! o (file-permissions i))
    347349            (close-input-port i)
    348350            (close-output-port o)
    349351            l)
    … … EOF 
    368370               (l 0))
    369371      (if (fx= 0 d)
    370372          (begin
     373            (set-file-permissions! o (file-permissions i))
    371374            (close-input-port i)
    372375            (close-output-port o)
    373376            (delete-file oldfile)