bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-04-04 08:13:24 -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 # # PURGED #
########## ##########
if (defined $db{$package[1]}) { 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 # # CR #
###### ######
elsif ("$package[1]_$1" eq $db{$package[1]} && elsif ("$package[1]_$1" eq $db{$package[1]} &&
$statusname ne $status) { $statusname ne $status ) {
push(@changed_packages, "$package[1]"); push(@changed_packages, "$package[1]");
$compare{$package[1]} = "$package[1]_$1"; $compare{$package[1]} = "$package[1]_$1";
} }
@ -158,7 +159,7 @@ sub db {
$compare{$package[1]} = "$package[1]_$1"; $compare{$package[1]} = "$package[1]_$1";
push(@gone,"$package[1]_$1"); push(@gone,"$package[1]_$1");
} }
} }
} }
close(DIFFERENCE); close(DIFFERENCE);