From 6ce6d07b0217f808b36221c1dc3708727a8c00e8 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Tue, 25 Jan 2005 04:38:24 +0000
Subject: [PATCH] This let's --purge work properly for --db.

---
 SWIM/DB.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/SWIM/DB.pm b/SWIM/DB.pm
index 083bfd5..eaf782b 100644
--- 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";
               }
@@ -158,7 +159,7 @@ sub db {
                  $compare{$package[1]} = "$package[1]_$1";
                  push(@gone,"$package[1]_$1");
              }
-        }
+         }
       }
       close(DIFFERENCE);