Added comment as per ged2ite

gedcom

@@ -3881,13 +3881,15 @@ sub print_person
 					$phrase->append(scalar(@spouses) . i18n(' times'));
 				}
 
+				# Sort the order of the marriages by date
 				my $all_marriages_have_date = 1;
 				foreach my $spouse(@spouses) {
 					if(!date_to_datetime(dateofmarriage($spouse))) {
 						$all_marriages_have_date = 0;
 						last;
 					}
 				}
+
 				if($all_marriages_have_date) {
 					@spouses = Sort::Key::DateTime::dtkeysort {
 						my $date = dateofmarriage($_);