Author: jelmer
Date: 2006-11-24 16:31:42 +0000 (Fri, 24 Nov 2006)
New Revision: 19880

WebSVN: 
http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=19880

Log:
Eliminate duplicates in the output.

Modified:
   branches/SAMBA_4_0/source/script/pkg-config


Changeset:
Modified: branches/SAMBA_4_0/source/script/pkg-config
===================================================================
--- branches/SAMBA_4_0/source/script/pkg-config 2006-11-24 16:21:23 UTC (rev 
19879)
+++ branches/SAMBA_4_0/source/script/pkg-config 2006-11-24 16:31:42 UTC (rev 
19880)
@@ -124,7 +124,21 @@
        push (@out, Cflags($pkg)) if ($opt_cflags);
 }
 
+sub nub
+{
+       my @list = @_;
+       my @ret = ();
+       my %seen = ();
+       foreach (@list) {
+               next if (defined($seen{$_}));
+               push (@ret, $_);
+               $seen{$_} = 1;
+       }
+       return @ret;
+}
+
 if ($#out >= 0) {
+       @out = nub(@out);
        print join(' ', @out) . "\n";
 }
 

Reply via email to