Revert fix which broke some relationship calculations

nigelhorne · Aug 19, 2024 · 87f4ea4 · 87f4ea4
1 parent 574596d
commit 87f4ea4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/ged2site b/ged2site
@@ -10054,10 +10054,8 @@ sub Gedcom::Individual::relationship_up
 	my $other = shift;
 	my @ancestors;
 
-	unless(@myancestors) {
-		@myancestors = $self->ancestors();
-	}
-	if($me && ($self eq $me)) {
+	if($me && ($self->xref() eq $me->xref())) {
+		# Cache myancestors since we call this a lot of times
 		unless(@myancestors) {
 			@myancestors = $me->ancestors();
 		}
@@ -10755,6 +10753,7 @@ sub Gedcom::Individual::relationship_down
 	my @descendant;
 
 	if($me && ($self->xref() eq $me->xref())) {
+		# Cache mydescendants since we call this a lot of times
 		unless(@mydescendants) {
 			# @mydescendants = $me->descendants();
 			@mydescendants = descendants($me);