Avoid seg faults with serialised csv objects

shawnlaffan · Sep 19, 2023 · 1445ffa · 1445ffa
1 parent 5006825
commit 1445ffa
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/lib/Biodiverse/BaseData.pm b/lib/Biodiverse/BaseData.pm
@@ -77,6 +77,10 @@ sub new {
     if ( defined $args{file} ) {
         my $file_loaded;
         $file_loaded = $self->load_file(@_);
+        #  hack to avoid seg faults with csv objects
+        $file_loaded->get_groups_ref->delete_element_name_csv_object;
+        $file_loaded->get_labels_ref->delete_element_name_csv_object;
+
         return $file_loaded;
     }
 

diff --git a/lib/Biodiverse/Common.pm b/lib/Biodiverse/Common.pm
@@ -1319,6 +1319,17 @@ sub get_csv_object {
     return $csv;
 }
 
+#  csv can cause seg faults when reloaded
+#  have not yet sorted out why
+sub delete_element_name_csv_object {
+    my ($self) = @_;
+
+    state $cache_name = '_ELEMENT_NAME_CSV_OBJECT';
+    $self->delete_cached_value ($cache_name);
+
+    return;
+}
+
 sub get_element_name_csv_object {
     my ($self) = @_;
 

diff --git a/lib/Biodiverse/GUI/Project.pm b/lib/Biodiverse/GUI/Project.pm
@@ -578,6 +578,10 @@ sub add_base_data {
         $self->select_base_data($basedata_ref);
     }
 
+    #  hack to avoid seg faults with csv objects
+    $basedata_ref->get_groups_ref->delete_element_name_csv_object;
+    $basedata_ref->get_labels_ref->delete_element_name_csv_object;
+
     $self->set_dirty();
     return $basedata_ref;
 }