Dump residencestringarray when verbose

nigelhorne · Feb 24, 2024 · 87eed28 · 87eed28
1 parent c48cff5
commit 87eed28
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gedcom b/gedcom
@@ -5407,7 +5407,7 @@ sub print_person
 					$phrase->set(ucfirst(i18n('during %s life', lc($person->possessive()))));
 				}
 
-				# print Data::Dumper->new([\@residencestringarray])->Dump();
+				print 'residencestringarray: ', Data::Dumper->new([\@residencestringarray])->Dump() if($opts{'v'});
 
 				# Because peek above only looks ahead one element:
 				# [