Changeset 14184 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

Jul 12, 2007, 2:46:59 PM (19 years ago)

Author:

Paul Price

Message:

Ensuring that each entry only has an unique set of skycells.

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (1 diff)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -239 +239 @@
 
     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;
+            }
         }
     }