note weird JSON response

naturalis · Nov 21, 2024 · deb2cc2 · deb2cc2
1 parent 1676f54
commit deb2cc2
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/workflow/scripts/update_BOLD_data.pl b/workflow/scripts/update_BOLD_data.pl
@@ -170,17 +170,18 @@ sub validate_response {
     return unless $data;
 
     # Check for API error responses
-    if (exists $data->{error}) {
+    # TODO JSON is parsed as an arrayref, not a hashref. Why?
+    if (ref $data eq 'HASH' and exists $data->{error}) {
         $logger->error("API error: $data->{error}");
         return;
     }
 
     # Validate required fields based on endpoint
-    if (exists $data->{taxid}) {
+    if (ref $data eq 'HASH' and exists $data->{taxid}) {
         # TaxonSearch response
         return unless $data->{taxid} =~ /^\d+$/;
     }
-    elsif (exists $data->{barcodespecimens}) {
+    elsif (ref $data eq 'HASH' and exists $data->{barcodespecimens}) {
         # TaxonData response
         for my $field (qw(barcodespecimens specimenrecords publicbins)) {
             return unless exists $data->{$field};