Chessa::URI::Default::ld_json: LD author field is an object for singletons on some sites

scripts/Chessa/URI/Default.pm

@@ -219,8 +219,12 @@ sub ld_json($self, $t, $authority) {
             $title =~ s/^\s+//; $title =~ s/\s+$//;
             my $published = $json->{datePublished};
             my @authors = ();
-            foreach my $author (@{ $json->{author}}) {
-                push @authors, $author->{name};
+            if (ref($json->{author}) eq 'HASH') {
+                push @authors, $json->{author}{name};
+            } else {
+                foreach my $author (@{ $json->{author}}) {
+                    push @authors, $author->{name};
+                }
             }
             my $author = join ', ', @authors;
             return $self->{msg}($authority, $json->{headline}) . ' ' .