diff options
Diffstat (limited to 'move/move.pm')
| -rw-r--r-- | move/move.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/move/move.pm b/move/move.pm index c0a0984c6..b3850c3c6 100644 --- a/move/move.pm +++ b/move/move.pm @@ -381,6 +381,15 @@ sub install_TrueFS_in_home { run_program::run('mount', '-o', 'bind', "$dir/$_", "/home/$user/$_"); } + + my $cache = "/tmp/.$user-cache"; + foreach (qw(.kde/share/cache)) { + mkdir_p("$cache/$_"); + mkdir_p("/home/$user/" . dirname($_)); + symlink "$cache/$_", "/home/$user/$_"; + } + run_program::run('chown', '-R', "$user.$user", $cache); + $ENV{ICEAUTHORITY} = "$dir/.ICEauthority"; } } |