zap duplicate specs
This commit is contained in:
parent
b7c78d5d16
commit
3d0bde7b9b
@ -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);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user