...
 
Commits (2)
rakudo (2018.12-2) unstable; urgency=medium
* No longer fail if precomp files do not exist on removal (closes: #916646)
* Make vendor/resources explicit in package (closes: #915785)
-- Robert Lemmen <robertle@semistable.com> Sun, 30 Dec 2018 12:54:52 +0100
rakudo (2018.12-1) unstable; urgency=medium
* New upstream version 2018.12
......
......@@ -65,20 +65,22 @@ sub install($) {
sub remove($) {
my ($module) = @_;
debug_say("removing perl6 module $module...");
my $fh;
open($fh, "< $varlib/$module.list")
or die "could not open file in removal of module $module: $!";
while (<$fh>) {
chomp;
# XXX this feels a bit unsafe...
unlink "$vendor/$_";
if (-e "$varlib/$module.list") {
debug_say("removing perl6 module $module...");
my $fh;
open($fh, "< $varlib/$module.list")
or die "could not open file in removal of module $module: $!";
while (<$fh>) {
chomp;
# XXX this feels a bit unsafe...
unlink "$vendor/$_";
}
close($fh);
unlink "$varlib/$module.list";
my @cmd = qq!find $vendor/short $vendor/precomp $vendor/dist $vendor/sources -type d -empty -delete!;
system(@cmd) == 0
or die "could not remove empty directories in removal of module $module: $?";
}
close($fh);
unlink "$varlib/$module.list";
my @cmd = qq!find $vendor/short $vendor/precomp $vendor/dist $vendor/sources -type d -empty -delete!;
system(@cmd) == 0
or die "could not remove empty directories in removal of module $module: $?";
}
sub reinstall_all() {
......