Use ->can

nigelhorne · Jul 26, 2024 · bbf9a6f · bbf9a6f
1 parent 9eb589b
commit bbf9a6f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ged2site b/ged2site
@@ -10596,7 +10596,7 @@ sub year
 		$string = $params{'record'};
 		return unless($string);
 
-		if(ref($string) eq 'Gedcom::Record') {
+		if(ref($string) && $string->can('date')) {
 			$string = $string->date();
 			return unless($string);
 			$string =~ s/\s+$//;