zap duplicate specs

This commit is contained in:
espie 2006-11-20 12:13:43 +00:00
parent b7c78d5d16
commit 3d0bde7b9b

View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $OpenBSD: resolve-lib,v 1.16 2006/09/18 12:56:22 espie Exp $
# $OpenBSD: resolve-lib,v 1.17 2006/11/20 12:13:43 espie Exp $
#
# Copyright (c) 2001, 2005 Marc Espie <espie@openbsd.org>
#
@ -178,7 +178,10 @@ while(<STDIN>) {
chomp;
push(@available, split(/\s+/, $_));
}
my $done = {};
for my $spec (@ARGV) {
next if $done->{$spec};
$done->{$spec} = 1;
solve_spec($spec, $noshared, @available);
}