bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-10-31 16:35:35 -04:00
Code Issues Projects Releases Wiki Activity

This let's --purge work properly for --db.

Browse Source
This commit is contained in:
freesource 2005-01-25 04:38:24 +00:00
parent 2956005281
commit 6ce6d07b02
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
SWIM/DB.pm
View File

@ -113,8 +113,9 @@ sub db {
# PURGED #
##########
if (defined $db{$package[1]}) {
#push(@gone,"$db{$package[1]}");
print "$db{$package[1]}\n";
#print "$db{$package[1]}\n";
$db{$package[1]} =~ m,(^.*)_.*$,;
push(@GONE,$1);
}
}
}
@ -145,7 +146,7 @@ sub db {
# CR #
######
elsif ("$package[1]_$1" eq $db{$package[1]} &&
$statusname ne $status) {
$statusname ne $status ) {
push(@changed_packages, "$package[1]");
$compare{$package[1]} = "$package[1]_$1";
}
@ -158,7 +159,7 @@ sub db {
$compare{$package[1]} = "$package[1]_$1";
push(@gone,"$package[1]_$1");
}
}
}
}
close(DIFFERENCE);