Index: /trunk/ippScripts/scripts/warp_overlap.pl
===================================================================
--- /trunk/ippScripts/scripts/warp_overlap.pl	(revision 14183)
+++ /trunk/ippScripts/scripts/warp_overlap.pl	(revision 14184)
@@ -239,9 +239,13 @@
 
     my @skycells = ();
+    my %unique = ();		# Ensure we only return unique skycells for this entry
 
     foreach my $line (@list) {
 	if ($line =~ m|$entry|) {
 	    my ($skycell) = $line =~ m|$entry\S*\s+:\s+(\S+)|;
-	    push @skycells, $skycell;
+	    if (not defined $unique{$skycell}) {
+		push @skycells, $skycell;
+		$unique{$skycell} = 1;
+	    }
 	}
     }