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

5
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);
} }
} }
} }