Merge pull request #1298 from dlglin/uniq-preserve-order

Rewrite the PG uniq function to return the array in a consistent order

Author: Alex-Jordan

macros/core/PGbasicmacros.pl

@@ -2634,13 +2634,9 @@ =head2  Sorting and other list macros
 
 #  uniq gives unique elements of a list:
 sub uniq {
-	my @in   = @_;
-	my %temp = ();
-	while (@in) {
-		$temp{ shift(@in) }++;
-	}
-	my @out = keys %temp;    # sort is causing trouble with Safe.??
-	@out;
+	my @in = @_;
+	my %seen;
+	return grep { !$seen{$_}++ } @in;
 }
 
 sub lex_sort {