Discard elements from repeated lists in [zoom init].

interchange · Sep 6, 2010 · d9a3b76 · d9a3b76
1 parent fa949c7
commit d9a3b76
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/lib/WellWell/Zoom.pm b/lib/WellWell/Zoom.pm
@@ -213,11 +213,23 @@ sub parse_handler {
 		}
 
 		if ($sob->{type} eq 'list') {
+			if (exists $sref->{lists}->{$name}) {
+				# discard repeated lists
+				$elt->cut();
+				return;
+			}
+
 			$sob->{elts} = [$elt];
 
 			$sref->{lists}->{$name} = [$sob];
+			return $sref;
 		}
-		elsif ($sob->{type} eq 'param') {
+
+		if (exists $sref->{lists}->{$sob->{list}}) {
+			return $sref;
+		}
+
+		if ($sob->{type} eq 'param') {
 			push (@{$sob->{elts}}, $elt);
 
 			if ($gi eq 'input') {