More helpful debugging message

nigelhorne · Jun 18, 2024 · af01c4b · af01c4b
1 parent 4bb5c7d
commit af01c4b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ged2site b/ged2site
@@ -9539,7 +9539,7 @@ sub Gedcom::Individual::relationship {
 	}
 	# if($me && ($me->xref() eq $other->xref()) && ($me->xref() eq $self->spouse()->xref())) {
 		# my $sex = $other->sex() || get_value({ person => $other, value => 'sex' });
-		# die $sex;
+		# die $self->as_string(), ": $sex";
 	# }
 
 	return $self->relationship_down($other) || $self->relationship_up($other);