Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 43 lines (36 sloc) 1.17 KB
#!/usr/bin/env perl6
use v6;
use lib 'ext/File__Tools/lib';
use Shell::Command;
# Find old state file
my $home = $*OS eq 'MSWin32' ?? %*ENV<HOMEDRIVE> ~ %*ENV<HOMEPATH> !! %*ENV<HOME>;
my $state-file = "$home/.panda/state";
if not $state-file.IO.e {
say "No need to rebootstrap, running normal bootstrap";
shell 'perl6 bootstrap.pl';
exit 0;
}
# Save a copy of the old state file to be written *after* bootstrapping again
my $old-state = slurp $state-file;
# Find modules that were installed by request
# (as opposed to just for dependency resolution)
my @modules;
given open($state-file) {
for .lines() -> $line {
my ($name, $state) = split /\s/, $line;
next if $name eq any(<File::Tools JSON::Tiny Test::Mock panda>);
if $state eq 'installed' {
@modules.push: $name;
}
}
.close;
}
# Clean old directories, boostrap a fresh panda,
# and reinstall all manually-installed modules
rm_rf "$home/.perl6/lib";
rm_rf "$home/.panda";
shell 'perl6 bootstrap.pl';
say "==> Reinstalling @modules[]";
shell "panda install @modules[]";
# Save the backup state file back to ~/.panda/
spurt "$state-file.bak", $old-state if $old-state;
Jump to Line
Something went wrong with that request. Please try again.