Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 35 lines (25 sloc) 1.0 kB
#!/usr/bin/env perl6
use v6;
say '==> Bootstrapping Panda';
my $home = $*OS eq 'MSWin32' ?? %*ENV<HOMEDRIVE> ~ %*ENV<HOMEPATH> !! %*ENV<HOME>;
mkdir $home unless $home.IO.d;
mkdir "$home/.panda" unless "$home/.panda".IO.d;
my $projects = slurp 'projects.json.bootstrap';
$projects ~~ s:g/_BASEDIR_/{cwd}\/ext/;
if $*OS eq 'MSWin32' {
$projects.=subst('\\', '/', :g);
}
given open "$home/.panda/projects.json", :w {
.say: $projects;
.close;
}
my $env_sep = $*VM<config><osname> eq 'MSWin32' ?? ';' !! ':';
my $destdir = %*ENV<DESTDIR> || "$home/.perl6";
$destdir = "{cwd}/$destdir" unless $destdir ~~ /^ '/' /;
%*ENV<PERL6LIB> ~= "{$env_sep}$destdir/lib";
%*ENV<PERL6LIB> ~= "{$env_sep}{cwd}/ext/File__Tools/lib";
%*ENV<PERL6LIB> ~= "{$env_sep}{cwd}/ext/JSON__Tiny/lib";
%*ENV<PERL6LIB> ~= "{$env_sep}{cwd}/ext/Test__Mock/lib";
%*ENV<PERL6LIB> ~= "{$env_sep}{cwd}/lib";
shell "perl6 bin/panda install File::Tools JSON::Tiny Test::Mock {cwd}";
unlink "$home/.panda/projects.json";
Jump to Line
Something went wrong with that request. Please try again.