view release on metacpan or  search on metacpan

t/container-workspace/container-tests.pl  view on Meta::CPAN

# make a user id and create home directory in the container
my $user_id = 1337;
my $home    = "/home/$user_id";
foreach my $dir ( "/home", $home ) {
    if ( not -d $dir ) {
        no autodie;
        mkdir $dir
            or croak "mkdir($dir) failed; $!";
    }
}
chown $user_id, $user_id, $home;
chmod 0750, $home;
chdir $home;
$ENV{HOME}    = $home;
$ENV{USER}    = $user_id;
$ENV{LOGNAME} = $user_id;

# set gid & uid to container $user_id
# we start as root so change gid & uid to avoid loading user management utility packages for each different OS
$) = $user_id;
$( = $user_id;