Fix undefined value in make_strain_key()

Refs #2831
pombase · Jun 12, 2024 · 73b0dcc · 73b0dcc
1 parent 46cc30e
commit 73b0dcc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/etc/reapply_species_strain_map.pl b/etc/reapply_species_strain_map.pl
@@ -62,7 +62,8 @@ sub make_strain_key
 {
   my $strain = shift;
 
-  return $strain->organism_id() . '-' . $strain->strain_name();
+  return $strain->organism_id() . '-' .
+    ($strain->track_strain_id() // $strain->strain_name());
 }
 
 my $proc = sub {