Fix pakfire reinstall removed packs if an updated version was released

This commit is contained in:
Arne Fitzennreiter
2008-10-27 22:48:28 +01:00
parent 1ea487ba62
commit 5e932bd569

View File

@@ -404,14 +404,14 @@ sub dblist {
}
}
opendir(DIR,"$Conf::dbdir/meta");
opendir(DIR,"$Conf::dbdir/installed");
my @files = readdir(DIR);
closedir(DIR);
foreach $file (@files) {
next if ( $file eq "." );
next if ( $file eq ".." );
next if ( $file =~ /^old/ );
open(FILE, "<$Conf::dbdir/meta/$file");
open(FILE, "<$Conf::dbdir/installed/$file");
@meta = <FILE>;
close(FILE);
foreach $line (@meta) {