Browse Source

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

master
freesource 20 years ago
parent
commit
6ce6d07b02
  1. 5
      SWIM/DB.pm

5
SWIM/DB.pm

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

Loading…
Cancel
Save