From 8b8fe6139e05f990b9d2a35652fd9bdb79189f90 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Mon, 27 Aug 2012 11:28:34 -0400
Subject: Drop dependency on List::MoreUtils

---
 perl/lib/Nix/Utils.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl')

diff --git a/perl/lib/Nix/Utils.pm b/perl/lib/Nix/Utils.pm
index 943b8dd4abfa..1e7e0b5afb2f 100644
--- a/perl/lib/Nix/Utils.pm
+++ b/perl/lib/Nix/Utils.pm
@@ -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;
+}
-- 
cgit 1.4.1