if ($return == 0) {
move("$Conf::tmpdir/ROOTFILES", "$Conf::dbdir/rootfiles/$pak");
cleanup("tmp");
- copy("$Conf::dbdir/meta/meta-$pak","$Conf::dbdir/installed/");
+ copy("$Conf::dbdir/meta/meta-$pak", "$Conf::dbdir/installed/");
message("PAKFIRE UPGR: $pak: Finished.");
message("");
} else {
} elsif ("$ARGV[0]" eq "upgrade") {
&Pakfire::upgradecore();
my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
- my @temp;
+ my @temp, $pak;
foreach (@upgradepaks) {
@temp = &Pakfire::resolvedeps("$_");
}
### Download first
- foreach (sort @upgradepaks) {
- &Pakfire::getpak("$_", "");
+ foreach $pak (sort @upgradepaks) {
+ system("mv $Conf::dbdir/meta/meta-$pak $Conf::dbdir/meta/old-meta-$pak");
+ &Pakfire::getpak("$pak", "");
}
- foreach (sort @upgradepaks) {
- &Pakfire::upgradepak("$_");
+ foreach $pak (sort @upgradepaks) {
+ if (&Pakfire::upgradepak("$pak")) {
+ system("mv $Conf::dbdir/meta/old-meta-$pak $Conf::dbdir/meta/meta-$pak");
+ }
}
} elsif ("$ARGV[0]" eq "list") {