Drop dependency on List::MoreUtils

This commit is contained in:
Eelco Dolstra 2012-08-27 11:28:34 -04:00
parent babe54bf97
commit 8b8fe6139e
2 changed files with 13 additions and 3 deletions

View File

@ -6,3 +6,14 @@ sub checkURL {
my ($url) = @_;
die "invalid URL $url\n" unless $url =~ /^ $urlRE $ /x;
}
sub uniq {
my %seen;
my @res;
foreach my $name (@_) {
next if $seen{$name};
$seen{$name} = 1;
push @res, $name;
}
return @res;
}

View File

@ -8,7 +8,6 @@ use Nix::Store;
use Nix::Utils;
use WWW::Curl::Easy;
use WWW::Curl::Multi;
use List::MoreUtils qw(any uniq);
use strict;
@ -195,12 +194,12 @@ sub getAvailableCaches {
@urls = ();
foreach my $url (@untrustedUrls) {
die "binary cache $url is not trusted (please add it to trusted-binary-caches in $Nix::Config::confDir/nix.conf)\n"
unless any { $url eq $_ } @trustedUrls;
unless grep { $url eq $_ } @trustedUrls > 0;
push @urls, $url;
}
}
foreach my $url (uniq @urls) {
foreach my $url (Nix::Utils::uniq @urls) {
# FIXME: not atomic.
$queryCache->execute($url);