Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 22 lines (13 sloc) 386 Bytes
#!/usr/bin/perl
exit 0
if 0;
use strict;
use warnings;
use FindBin;
use Path::Class qw( file );
my $rcfile = file("$FindBin::Bin/env.rc");
chdir( $rcfile->dir->parent->absolute->stringify );
local *ENV = *ENV;
$ENV{CHROOTING} = $rcfile->dir->parent->absolute->stringify;
$ENV{d} = $rcfile->dir->absolute->stringify;
system('bash', '--rcfile', $rcfile->absolute->stringify );