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

20 years ago · 6ce6d07b02
1 changed files with 5 additions and 4 deletions
--- a/SWIM/DB.pm
+++ b/SWIM/DB.pm
@ -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);
 		}	          
 	    }
 	}