remove duplicates, in case we're scanning the same package several times.
okay pvalchev@
This commit is contained in:
parent
b5851b9917
commit
dd7e097b7c
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user