remove duplicates, in case we're scanning the same package several times.

okay pvalchev@
This commit is contained in:
espie 2005-08-14 11:57:17 +00:00
parent b5851b9917
commit dd7e097b7c

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
# $OpenBSD: find-all-conflicts,v 1.8 2004/11/11 15:38:02 espie Exp $
# $OpenBSD: find-all-conflicts,v 1.9 2005/08/14 11:57:17 espie Exp $
# Copyright (c) 2000
# Marc Espie. All rights reserved.
# Redistribution and use in source and binary forms, with or without
@ -56,6 +56,8 @@ sub show_problems
my ($h, $conflicts) = @_;
while (my ($key, $l) = each %$h) {
my %s = map {($_, 1)} @$l;
@$l = keys %s;
if (@$l > 1) {
my $notfound = 0;
# create a list of unconflicting packages.