bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-11-01 13:46:09 -05: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
Download Patch File Download Diff File Expand all files Collapse all files
SWIM/DB.pm
+3 -2
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);
}
}
}