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);
 		}	          
 	    }
 	}
@ -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";
              }